home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / game / text / Competition96.lha / Comp96.z5 (.txt) < prev   
Z-code for Z-machine  |  1997-08-02  |  85KB  |  10,828 lines

  1. Resident data ends at 4a68, program starts at 4a68, file ends at 14b68
  2.  
  3. Starting analysis pass at address 4a68
  4.  
  5. End of analysis pass, low address = 4a68, high address = 120ac
  6.  
  7. [Start of code]
  8.  
  9. Main routine R0001, 0 locals
  10.  
  11.        CALL_VS         R0002 -> Gef
  12.        QUIT            
  13.  
  14. Routine R0002, 0 locals
  15.  
  16.        CALL_VN         R0318 (#0016,#0049)
  17.        RTRUE           
  18.  
  19. Routine R0003, 0 locals
  20.  
  21.        RTRUE           
  22.  
  23. Routine R0004, 1 local
  24.  
  25.        LOADB           L00,#00 -> -(SP)
  26.        PULL            Gef
  27.        JE              Gef,#61,#65,#69 [TRUE] L0001
  28.        JE              Gef,#6f,#75,#41 [TRUE] L0001
  29.        JE              Gef,#45,#49,#4f [TRUE] L0001
  30.        JE              Gef,#55 [FALSE] L0002
  31. L0001: RTRUE           
  32. L0002: RFALSE          
  33.  
  34. Routine R0005, 1 local
  35.  
  36.        STORE           Gef,L00
  37.        JE              Gef,#07 [FALSE] L0001
  38.        PRINT           "north"
  39.        JUMP            L0013
  40. L0001: JE              Gef,#08 [FALSE] L0002
  41.        PRINT           "south"
  42.        JUMP            L0013
  43. L0002: JE              Gef,#09 [FALSE] L0003
  44.        PRINT           "east"
  45.        JUMP            L0013
  46. L0003: JE              Gef,#0a [FALSE] L0004
  47.        PRINT           "west"
  48.        JUMP            L0013
  49. L0004: JE              Gef,#0b [FALSE] L0005
  50.        PRINT           "northeast"
  51.        JUMP            L0013
  52. L0005: JE              Gef,#0d [FALSE] L0006
  53.        PRINT           "northwest"
  54.        JUMP            L0013
  55. L0006: JE              Gef,#0c [FALSE] L0007
  56.        PRINT           "southeast"
  57.        JUMP            L0013
  58. L0007: JE              Gef,#0e [FALSE] L0008
  59.        PRINT           "southwest"
  60.        JUMP            L0013
  61. L0008: JE              Gef,#0f [FALSE] L0009
  62.        PRINT           "up"
  63.        JUMP            L0013
  64. L0009: JE              Gef,#10 [FALSE] L0010
  65.        PRINT           "down"
  66.        JUMP            L0013
  67. L0010: JE              Gef,#11 [FALSE] L0011
  68.        PRINT           "in"
  69.        JUMP            L0013
  70. L0011: JE              Gef,#12 [FALSE] L0012
  71.        PRINT           "out"
  72.        JUMP            L0013
  73. L0012: CALL_VS         R0111 (#09,L00) -> -(SP)
  74.        RET_POPPED      
  75. L0013: RTRUE           
  76.  
  77. Routine R0006, 2 locals
  78.  
  79.        JZ              L00 [FALSE] L0001
  80.        PRINT           "zero"
  81.        RFALSE          
  82. L0001: JL              L00,#00 [FALSE] L0002
  83.        PRINT           "minus "
  84.        SUB             #00,L00 -> L00
  85. L0002: JL              L00,#03e8 [TRUE] L0003
  86.        DIV             L00,#03e8 -> -(SP)
  87.        CALL_2N         R0006 ((SP)+)
  88.        PRINT           " thousand"
  89.        MOD             L00,#03e8 -> L00
  90.        STORE           L01,#01
  91. L0003: JL              L00,#64 [TRUE] L0005
  92.        JE              L01,#01 [FALSE] L0004
  93.        PRINT           ", "
  94. L0004: DIV             L00,#64 -> -(SP)
  95.        CALL_2N         R0006 ((SP)+)
  96.        PRINT           " hundred"
  97.        MOD             L00,#64 -> L00
  98.        STORE           L01,#01
  99. L0005: JZ              L00 [TRUE] RFALSE
  100.        JE              L01,#01 [FALSE] L0006
  101.        PRINT           " and "
  102. L0006: STORE           Gef,L00
  103.        JE              Gef,#01 [FALSE] L0007
  104.        PRINT           "one"
  105.        JUMP            L0034
  106. L0007: JE              Gef,#02 [FALSE] L0008
  107.        PRINT           "two"
  108.        JUMP            L0034
  109. L0008: JE              Gef,#03 [FALSE] L0009
  110.        PRINT           "three"
  111.        JUMP            L0034
  112. L0009: JE              Gef,#04 [FALSE] L0010
  113.        PRINT           "four"
  114.        JUMP            L0034
  115. L0010: JE              Gef,#05 [FALSE] L0011
  116.        PRINT           "five"
  117.        JUMP            L0034
  118. L0011: JE              Gef,#06 [FALSE] L0012
  119.        PRINT           "six"
  120.        JUMP            L0034
  121. L0012: JE              Gef,#07 [FALSE] L0013
  122.        PRINT           "seven"
  123.        JUMP            L0034
  124. L0013: JE              Gef,#08 [FALSE] L0014
  125.        PRINT           "eight"
  126.        JUMP            L0034
  127. L0014: JE              Gef,#09 [FALSE] L0015
  128.        PRINT           "nine"
  129.        JUMP            L0034
  130. L0015: JE              Gef,#0a [FALSE] L0016
  131.        PRINT           "ten"
  132.        JUMP            L0034
  133. L0016: JE              Gef,#0b [FALSE] L0017
  134.        PRINT           "eleven"
  135.        JUMP            L0034
  136. L0017: JE              Gef,#0c [FALSE] L0018
  137.        PRINT           "twelve"
  138.        JUMP            L0034
  139. L0018: JE              Gef,#0d [FALSE] L0019
  140.        PRINT           "thirteen"
  141.        JUMP            L0034
  142. L0019: JE              Gef,#0e [FALSE] L0020
  143.        PRINT           "fourteen"
  144.        JUMP            L0034
  145. L0020: JE              Gef,#0f [FALSE] L0021
  146.        PRINT           "fifteen"
  147.        JUMP            L0034
  148. L0021: JE              Gef,#10 [FALSE] L0022
  149.        PRINT           "sixteen"
  150.        JUMP            L0034
  151. L0022: JE              Gef,#11 [FALSE] L0023
  152.        PRINT           "seventeen"
  153.        JUMP            L0034
  154. L0023: JE              Gef,#12 [FALSE] L0024
  155.        PRINT           "eighteen"
  156.        JUMP            L0034
  157. L0024: JE              Gef,#13 [FALSE] L0025
  158.        PRINT           "nineteen"
  159.        JUMP            L0034
  160. L0025: JL              Gef,#14 [TRUE] L0034
  161.        JG              Gef,#63 [TRUE] L0034
  162.        DIV             L00,#0a -> -(SP)
  163.        PULL            Gef
  164.        JE              Gef,#02 [FALSE] L0026
  165.        PRINT           "twenty"
  166.        JUMP            L0033
  167. L0026: JE              Gef,#03 [FALSE] L0027
  168.        PRINT           "thirty"
  169.        JUMP            L0033
  170. L0027: JE              Gef,#04 [FALSE] L0028
  171.        PRINT           "forty"
  172.        JUMP            L0033
  173. L0028: JE              Gef,#05 [FALSE] L0029
  174.        PRINT           "fifty"
  175.        JUMP            L0033
  176. L0029: JE              Gef,#06 [FALSE] L0030
  177.        PRINT           "sixty"
  178.        JUMP            L0033
  179. L0030: JE              Gef,#07 [FALSE] L0031
  180.        PRINT           "seventy"
  181.        JUMP            L0033
  182. L0031: JE              Gef,#08 [FALSE] L0032
  183.        PRINT           "eighty"
  184.        JUMP            L0033
  185. L0032: JE              Gef,#09 [FALSE] L0033
  186.        PRINT           "ninety"
  187. L0033: MOD             L00,#0a -> -(SP)
  188.        JZ              (SP)+ [TRUE] L0034
  189.        PRINT           "-"
  190.        MOD             L00,#0a -> -(SP)
  191.        CALL_2N         R0006 ((SP)+)
  192. L0034: RTRUE           
  193.  
  194. Routine R0007, 3 locals
  195.  
  196.        MOD             L00,#0c -> L02
  197.        JL              L02,#0a [FALSE] L0001
  198.        PRINT           " "
  199. L0001: JZ              L02 [FALSE] L0002
  200.        STORE           L02,#0c
  201. L0002: PRINT_NUM       L02
  202.        PRINT           ":"
  203.        DIV             L01,#0a -> -(SP)
  204.        PRINT_NUM       (SP)+
  205.        MOD             L01,#0a -> -(SP)
  206.        PRINT_NUM       (SP)+
  207.        DIV             L00,#0c -> -(SP)
  208.        JG              (SP)+,#00 [FALSE] L0003
  209.        PRINT           " pm"
  210.        JUMP            L0004
  211. L0003: PRINT           " am"
  212. L0004: RTRUE           
  213.  
  214. Routine R0008, 1 local
  215.  
  216.        JE              L00,"l" [FALSE] L0001
  217.        PRINT           "look"
  218.        RTRUE           
  219. L0001: JE              L00,"z" [FALSE] L0002
  220.        PRINT           "wait"
  221.        RTRUE           
  222. L0002: JE              L00,"x" [FALSE] L0003
  223.        PRINT           "examine"
  224.        RTRUE           
  225. L0003: JE              L00,"i","inv","inventory" [FALSE] L0004
  226.        PRINT           "inventory"
  227.        RTRUE           
  228. L0004: RFALSE          
  229.  
  230. Routine R0009, 1 local
  231.  
  232.        TEST_ATTR       L00,#1e [FALSE] L0001
  233.        PRINT           "those"
  234.        JUMP            L0002
  235. L0001: PRINT           "that"
  236. L0002: RTRUE           
  237.  
  238. Routine R0010, 1 local
  239.  
  240.        TEST_ATTR       L00,#1e [FALSE] L0001
  241.        PRINT           "them"
  242.        JUMP            L0002
  243. L0001: PRINT           "it"
  244. L0002: RTRUE           
  245.  
  246. Routine R0011, 1 local
  247.  
  248.        TEST_ATTR       L00,#1e [FALSE] L0001
  249.        PRINT           "are"
  250.        JUMP            L0002
  251. L0001: PRINT           "is"
  252. L0002: RTRUE           
  253.  
  254. Routine R0012, 1 local
  255.  
  256.        TEST_ATTR       L00,#1e [FALSE] L0001
  257.        PRINT           "Those"
  258.        JUMP            L0002
  259. L0001: PRINT           "That"
  260. L0002: RTRUE           
  261.  
  262. Routine R0013, 1 local
  263.  
  264.        TEST_ATTR       L00,#1e [FALSE] L0001
  265.        PRINT           "They're"
  266.        JUMP            L0002
  267. L0001: PRINT           "That's"
  268. L0002: RTRUE           
  269.  
  270. Routine R0014, 2 locals
  271.  
  272.        JE              Ge9,#1008 [FALSE] L0001
  273.        PRINT           "
  274. >"
  275.        RTRUE           
  276. L0001: JE              Ge9,#1007 [FALSE] L0066
  277.        STORE           Gef,L00
  278.        JE              Gef,#01 [FALSE] L0002
  279.        PRINT_RET       "(considering the first sixteen objects only)
  280. "
  281. L0002: JE              Gef,#02 [FALSE] L0003
  282.        PRINT_RET       "Nothing to do!"
  283. L0003: JE              Gef,#03 [FALSE] L0004
  284.        PRINT           " You have died "
  285.        JUMP            L0065
  286. L0004: JE              Gef,#04 [FALSE] L0005
  287.        PRINT           " You have won "
  288.        JUMP            L0065
  289. L0005: JE              Gef,#05 [FALSE] L0008
  290.        PRINT           "
  291. Would you like to RESTART, RESTORE a saved game"
  292.        JZ              #0001 [FALSE] L0006
  293.        PRINT           ", give the FULL score for that game"
  294. L0006: JE              G13,#02 [FALSE] L0007
  295.        JZ              #0001 [FALSE] L0007
  296.        PRINT           ", see some suggestions for AMUSING things to do"
  297. L0007: PRINT_RET       " or QUIT?"
  298. L0008: JE              Gef,#06 [FALSE] L0009
  299.        PRINT_RET       "[Your interpreter does not provide "undo". Sorry!]"
  300. L0009: JE              Gef,#07 [FALSE] L0010
  301.        PRINT_RET       ""Undo" failed. [Not all interpreters provide it.]"
  302. L0010: JE              Gef,#08 [FALSE] L0011
  303.        PRINT_RET       "Please give one of the answers above."
  304. L0011: JE              Gef,#09 [FALSE] L0012
  305.        PRINT_RET       "
  306. It is now pitch dark in here!"
  307. L0012: JE              Gef,#0a [FALSE] L0013
  308.        PRINT_RET       "I beg your pardon?"
  309. L0013: JE              Gef,#0b [FALSE] L0014
  310.        PRINT_RET       "[You can't "undo" what hasn't been done!]"
  311. L0014: JE              Gef,#0c [FALSE] L0015
  312.        PRINT_RET       "[Can't "undo" twice in succession. Sorry!]"
  313. L0015: JE              Gef,#0d [FALSE] L0016
  314.        PRINT_RET       "[Previous turn undone.]"
  315. L0016: JE              Gef,#0e [FALSE] L0017
  316.        PRINT_RET       "Sorry, that can't be corrected."
  317. L0017: JE              Gef,#0f [FALSE] L0018
  318.        PRINT_RET       "Think nothing of it."
  319. L0018: JE              Gef,#10 [FALSE] L0019
  320.        PRINT_RET       ""Oops" can only correct a single word."
  321. L0019: JE              Gef,#11 [FALSE] L0020
  322.        PRINT_RET       "It is pitch dark, and you can't see a thing."
  323. L0020: JE              Gef,#12 [FALSE] L0021
  324.        PRINT           "yourself"
  325.        JUMP            L0065
  326. L0021: JE              Gef,#13 [FALSE] L0022
  327.        PRINT_RET       "As good-looking as ever."
  328. L0022: JE              Gef,#14 [FALSE] L0023
  329.        PRINT_RET       "To repeat a command like "frog, jump", just say
  330. "again", not "frog, again"."
  331. L0023: JE              Gef,#15 [FALSE] L0024
  332.        PRINT_RET       "You can hardly repeat that."
  333. L0024: JE              Gef,#16 [FALSE] L0025
  334.        PRINT_RET       "You can't begin with a comma."
  335. L0025: JE              Gef,#17 [FALSE] L0026
  336.        PRINT_RET       "You seem to want to talk to someone, but I can't see
  337. whom."
  338. L0026: JE              Gef,#18 [FALSE] L0027
  339.        PRINT           "You can't talk to "
  340.        CALL_2N         R0102 (L01)
  341.        PRINT_RET       "."
  342. L0027: JE              Gef,#19 [FALSE] L0028
  343.        PRINT_RET       "To talk to someone, try "someone, hello" or some such."
  344. L0028: JE              Gef,#1a [FALSE] L0029
  345.        PRINT           "(first taking "
  346.        CALL_2N         R0102 (G40)
  347.        PRINT_RET       ")"
  348. L0029: JE              Gef,#1b [FALSE] L0030
  349.        PRINT_RET       "I didn't understand that sentence."
  350. L0030: JE              Gef,#1c [FALSE] L0031
  351.        PRINT           "I only understood you as far as wanting to "
  352.        JUMP            L0065
  353. L0031: JE              Gef,#1d [FALSE] L0032
  354.        PRINT_RET       "I didn't understand that number."
  355. L0032: JE              Gef,#1e [FALSE] L0033
  356.        PRINT_RET       "You can't see any such thing."
  357. L0033: JE              Gef,#1f [FALSE] L0034
  358.        PRINT_RET       "You seem to have said too little!"
  359. L0034: JE              Gef,#20 [FALSE] L0035
  360.        PRINT_RET       "You aren't holding that!"
  361. L0035: JE              Gef,#21 [FALSE] L0036
  362.        PRINT_RET       "You can't use multiple objects with that verb."
  363. L0036: JE              Gef,#22 [FALSE] L0037
  364.        PRINT_RET       "You can only use multiple objects once on a line."
  365. L0037: JE              Gef,#23 [FALSE] L0038
  366.        PRINT           "I'm not sure what ""
  367.        PRINT_ADDR      G64
  368.        PRINT_RET       "" refers to."
  369. L0038: JE              Gef,#24 [FALSE] L0039
  370.        PRINT_RET       "You excepted something not included anyway!"
  371. L0039: JE              Gef,#25 [FALSE] L0040
  372.        PRINT_RET       "You can only do that to something animate."
  373. L0040: JE              Gef,#26 [FALSE] L0041
  374.        PRINT_RET       "That's not a verb I recognise."
  375. L0041: JE              Gef,#27 [FALSE] L0042
  376.        PRINT_RET       "That's not something you need to refer to in the course
  377. of this game."
  378. L0042: JE              Gef,#28 [FALSE] L0043
  379.        PRINT           "You can't see ""
  380.        PRINT_ADDR      G64
  381.        PRINT           "" ("
  382.        CALL_2N         R0102 (G65)
  383.        PRINT_RET       ") at the moment."
  384. L0043: JE              Gef,#29 [FALSE] L0044
  385.        PRINT_RET       "I didn't understand the way that finished."
  386. L0044: JE              Gef,#2a [FALSE] L0049
  387.        JZ              L01 [FALSE] L0045
  388.        PRINT           "None"
  389.        JUMP            L0046
  390. L0045: PRINT           "Only "
  391.        CALL_2N         R0105 (L01)
  392. L0046: PRINT           " of those "
  393.        JE              L01,#01 [FALSE] L0047
  394.        PRINT           "is"
  395.        JUMP            L0048
  396. L0047: PRINT           "are"
  397. L0048: PRINT_RET       " available."
  398. L0049: JE              Gef,#2b [FALSE] L0050
  399.        PRINT_RET       "Nothing to do!"
  400. L0050: JE              Gef,#2c [FALSE] L0051
  401.        PRINT_RET       "There are none at all available!"
  402. L0051: JE              Gef,#2d [FALSE] L0052
  403.        PRINT           "Who do you mean, "
  404.        JUMP            L0065
  405. L0052: JE              Gef,#2e [FALSE] L0053
  406.        PRINT           "Which do you mean, "
  407.        JUMP            L0065
  408. L0053: JE              Gef,#2f [FALSE] L0054
  409.        PRINT_RET       "Sorry, you can only have one item here. Which exactly?"
  410. L0054: JE              Gef,#30 [FALSE] L0056
  411.        PRINT           "Whom do you want"
  412.        JE              G34,G12 [TRUE] L0055
  413.        PRINT           " "
  414.        CALL_2N         R0102 (G34)
  415. L0055: PRINT           " to "
  416.        CALL_1N         R0035
  417.        PRINT           "?
  418. "
  419.        JUMP            L0065
  420. L0056: JE              Gef,#31 [FALSE] L0058
  421.        PRINT           "What do you want"
  422.        JE              G34,G12 [TRUE] L0057
  423.        PRINT           " "
  424.        CALL_2N         R0102 (G34)
  425. L0057: PRINT           " to "
  426.        CALL_1N         R0035
  427.        PRINT           "?
  428. "
  429.        JUMP            L0065
  430. L0058: JE              Gef,#32 [FALSE] L0062
  431.        PRINT           "Your score has just gone "
  432.        JG              L01,#00 [FALSE] L0059
  433.        PRINT           "up"
  434.        JUMP            L0060
  435. L0059: SUB             #00,L01 -> L01
  436.        PRINT           "down"
  437. L0060: PRINT           " by "
  438.        CALL_2N         R0105 (L01)
  439.        PRINT           " point"
  440.        JG              L01,#01 [FALSE] L0061
  441.        PRINT           "s"
  442. L0061: JUMP            L0065
  443. L0062: JE              Gef,#33 [FALSE] L0063
  444.        PRINT_RET       "(Since something dramatic has happened, your list of
  445. commands has been cut short.)"
  446. L0063: JE              Gef,#34 [FALSE] L0064
  447.        PRINT           "
  448. Type a number from 1 to "
  449.        PRINT_NUM       L01
  450.        PRINT_RET       ", 0 to redisplay or press ENTER."
  451. L0064: JE              Gef,#35 [FALSE] L0065
  452.        PRINT_RET       "
  453. [Please press SPACE.]"
  454. L0065: RTRUE           
  455. L0066: JE              Ge9,#1006 [FALSE] L0089
  456.        STORE           Gef,L00
  457.        JE              Gef,#01 [FALSE] L0067
  458.        PRINT           " (providing light)"
  459.        JUMP            L0088
  460. L0067: JE              Gef,#02 [FALSE] L0068
  461.        PRINT           " (which "
  462.        CALL_2N         R0011 (L01)
  463.        PRINT           " closed)"
  464.        JUMP            L0088
  465. L0068: JE              Gef,#03 [FALSE] L0069
  466.        PRINT           " (closed and providing light)"
  467.        JUMP            L0088
  468. L0069: JE              Gef,#04 [FALSE] L0070
  469.        PRINT           " (which "
  470.        CALL_2N         R0011 (L01)
  471.        PRINT           " empty)"
  472.        JUMP            L0088
  473. L0070: JE              Gef,#05 [FALSE] L0071
  474.        PRINT           " (empty and providing light)"
  475.        JUMP            L0088
  476. L0071: JE              Gef,#06 [FALSE] L0072
  477.        PRINT           " (which "
  478.        CALL_2N         R0011 (L01)
  479.        PRINT           " closed and empty)"
  480.        JUMP            L0088
  481. L0072: JE              Gef,#07 [FALSE] L0073
  482.        PRINT           " (closed, empty and providing light)"
  483.        JUMP            L0088
  484. L0073: JE              Gef,#08 [FALSE] L0074
  485.        PRINT           " (providing light and being worn"
  486.        JUMP            L0088
  487. L0074: JE              Gef,#09 [FALSE] L0075
  488.        PRINT           " (providing light"
  489.        JUMP            L0088
  490. L0075: JE              Gef,#0a [FALSE] L0076
  491.        PRINT           " (being worn"
  492.        JUMP            L0088
  493. L0076: JE              Gef,#0b [FALSE] L0077
  494.        PRINT           " (which "
  495.        CALL_2N         R0011 (L01)
  496.        PRINT           " "
  497.        JUMP            L0088
  498. L0077: JE              Gef,#0c [FALSE] L0078
  499.        PRINT           "open"
  500.        JUMP            L0088
  501. L0078: JE              Gef,#0d [FALSE] L0079
  502.        PRINT           "open but empty"
  503.        JUMP            L0088
  504. L0079: JE              Gef,#0e [FALSE] L0080
  505.        PRINT           "closed"
  506.        JUMP            L0088
  507. L0080: JE              Gef,#0f [FALSE] L0081
  508.        PRINT           "closed and locked"
  509.        JUMP            L0088
  510. L0081: JE              Gef,#10 [FALSE] L0082
  511.        PRINT           " and empty"
  512.        JUMP            L0088
  513. L0082: JE              Gef,#11 [FALSE] L0083
  514.        PRINT           " (which "
  515.        CALL_2N         R0011 (L01)
  516.        PRINT           " empty)"
  517.        JUMP            L0088
  518. L0083: JE              Gef,#12 [FALSE] L0084
  519.        PRINT           " containing "
  520.        JUMP            L0088
  521. L0084: JE              Gef,#13 [FALSE] L0085
  522.        PRINT           " (on "
  523.        JUMP            L0088
  524. L0085: JE              Gef,#14 [FALSE] L0086
  525.        PRINT           ", on top of "
  526.        JUMP            L0088
  527. L0086: JE              Gef,#15 [FALSE] L0087
  528.        PRINT           " (in "
  529.        JUMP            L0088
  530. L0087: JE              Gef,#16 [FALSE] L0088
  531.        PRINT           ", inside "
  532. L0088: RTRUE           
  533. L0089: JE              Ge9,#00 [FALSE] L0094
  534.        STORE           Gef,L00
  535.        JE              Gef,#01 [FALSE] L0090
  536.        PRINT           "At the moment, "
  537.        JUMP            L0093
  538. L0090: JE              Gef,#02 [FALSE] L0091
  539.        PRINT           "means "
  540.        JUMP            L0093
  541. L0091: JE              Gef,#03 [FALSE] L0092
  542.        PRINT           "is unset"
  543.        JUMP            L0093
  544. L0092: JE              Gef,#04 [FALSE] L0093
  545.        PRINT_RET       "no pronouns are known to the game."
  546. L0093: RTRUE           
  547. L0094: JE              Ge9,#1003 [FALSE] L0097
  548.        CALL_2N         R0103 (L01)
  549.        TEST_ATTR       L01,#1e [FALSE] L0095
  550.        PRINT           " have"
  551.        JUMP            L0096
  552. L0095: PRINT           " has"
  553. L0096: PRINT_RET       " better things to do."
  554. L0097: JE              Ge9,#01 [FALSE] L0100
  555.        STORE           Gef,L00
  556.        JE              Gef,#01 [FALSE] L0098
  557.        PRINT           "Please answer yes or no."
  558.        JUMP            L0099
  559. L0098: JE              Gef,#02 [FALSE] L0099
  560.        PRINT           "Are you sure you want to quit? "
  561. L0099: RTRUE           
  562. L0100: JE              Ge9,#02 [FALSE] L0103
  563.        STORE           Gef,L00
  564.        JE              Gef,#01 [FALSE] L0101
  565.        PRINT           "Are you sure you want to restart? "
  566.        JUMP            L0102
  567. L0101: JE              Gef,#02 [FALSE] L0102
  568.        PRINT_RET       "Failed."
  569. L0102: RTRUE           
  570. L0103: JE              Ge9,#03 [FALSE] L0106
  571.        STORE           Gef,L00
  572.        JE              Gef,#01 [FALSE] L0104
  573.        PRINT_RET       "Restore failed."
  574. L0104: JE              Gef,#02 [FALSE] L0105
  575.        PRINT_RET       "Ok."
  576. L0105: RTRUE           
  577. L0106: JE              Ge9,#04 [FALSE] L0109
  578.        STORE           Gef,L00
  579.        JE              Gef,#01 [FALSE] L0107
  580.        PRINT_RET       "Save failed."
  581. L0107: JE              Gef,#02 [FALSE] L0108
  582.        PRINT_RET       "Ok."
  583. L0108: RTRUE           
  584. L0109: JE              Ge9,#05 [FALSE] L0112
  585.        STORE           Gef,L00
  586.        JE              Gef,#01 [FALSE] L0110
  587.        PRINT_RET       "The game file has verified as intact."
  588. L0110: JE              Gef,#02 [FALSE] L0111
  589.        PRINT_RET       "The game file did not verify as intact, and may be
  590. corrupted (unless you are playing it with a very primitive interpreter which is
  591. unable properly to perform the test)."
  592. L0111: RTRUE           
  593. L0112: JE              Ge9,#06 [FALSE] L0115
  594.        STORE           Gef,L00
  595.        JE              Gef,#01 [FALSE] L0113
  596.        PRINT_RET       "Transcripting is already on."
  597. L0113: JE              Gef,#02 [FALSE] L0114
  598.        PRINT_RET       "Start of a transcript of"
  599. L0114: RTRUE           
  600. L0115: JE              Ge9,#07 [FALSE] L0118
  601.        STORE           Gef,L00
  602.        JE              Gef,#01 [FALSE] L0116
  603.        PRINT_RET       "Transcripting is already off."
  604. L0116: JE              Gef,#02 [FALSE] L0117
  605.        PRINT_RET       "
  606. End of transcript."
  607. L0117: RTRUE           
  608. L0118: JE              Ge9,#08 [FALSE] L0119
  609.        PRINT_RET       "Score notification on."
  610. L0119: JE              Ge9,#09 [FALSE] L0120
  611.        PRINT_RET       "Score notification off."
  612. L0120: JE              Ge9,#0a [FALSE] L0121
  613.        PRINT           "You have visited: "
  614.        RTRUE           
  615. L0121: JE              Ge9,#0b [FALSE] L0132
  616.        STORE           Gef,L00
  617.        JE              Gef,#01 [FALSE] L0122
  618.        PRINT_RET       "Objects you have handled:
  619. "
  620. L0122: JE              Gef,#02 [FALSE] L0123
  621.        PRINT_RET       "None."
  622. L0123: JE              Gef,#03 [FALSE] L0124
  623.        PRINT           "   (worn)"
  624.        JUMP            L0131
  625. L0124: JE              Gef,#04 [FALSE] L0125
  626.        PRINT           "   (held)"
  627.        JUMP            L0131
  628. L0125: JE              Gef,#05 [FALSE] L0126
  629.        PRINT           "   (given away)"
  630.        JUMP            L0131
  631. L0126: JE              Gef,#06 [FALSE] L0127
  632.        PRINT           "   (in "
  633.        CALL_2N         R0104 (L01)
  634.        PRINT           ")"
  635.        JUMP            L0131
  636. L0127: JE              Gef,#07 [FALSE] L0128
  637.        PRINT           "   (in "
  638.        CALL_2N         R0102 (L01)
  639.        PRINT           ")"
  640.        JUMP            L0131
  641. L0128: JE              Gef,#08 [FALSE] L0129
  642.        PRINT           "   (inside "
  643.        CALL_2N         R0102 (L01)
  644.        PRINT           ")"
  645.        JUMP            L0131
  646. L0129: JE              Gef,#09 [FALSE] L0130
  647.        PRINT           "   (on "
  648.        CALL_2N         R0102 (L01)
  649.        PRINT           ")"
  650.        JUMP            L0131
  651. L0130: JE              Gef,#0a [FALSE] L0131
  652.        PRINT           "   (lost)"
  653. L0131: RTRUE           
  654. L0132: JE              Ge9,#0c [FALSE] L0136
  655.        JZ              G13 [TRUE] L0133
  656.        PRINT           "In that game you scored "
  657.        JUMP            L0134
  658. L0133: PRINT           "You have so far scored "
  659. L0134: PRINT_NUM       G0d
  660.        PRINT           " out of a possible "
  661.        PRINT_NUM       #0000
  662.        PRINT           ", in "
  663.        PRINT_NUM       G08
  664.        PRINT           " turn"
  665.        JG              G08,#01 [FALSE] L0135
  666.        PRINT           "s"
  667. L0135: RTRUE           
  668. L0136: JE              Ge9,#0d [FALSE] L0143
  669.        STORE           Gef,L00
  670.        JE              Gef,#01 [FALSE] L0139
  671.        JZ              G13 [TRUE] L0137
  672.        PRINT           "The score was "
  673.        JUMP            L0138
  674. L0137: PRINT           "The score is "
  675. L0138: PRINT_RET       "made up as follows:
  676. "
  677. L0139: JE              Gef,#02 [FALSE] L0140
  678.        PRINT_RET       "finding sundry items"
  679. L0140: JE              Gef,#03 [FALSE] L0141
  680.        PRINT_RET       "visiting various places"
  681. L0141: JE              Gef,#04 [FALSE] L0142
  682.        PRINT           "total (out of "
  683.        PRINT_NUM       #0000
  684.        PRINT_RET       ")"
  685. L0142: RTRUE           
  686. L0143: JE              Ge9,#0e [FALSE] L0146
  687.        STORE           Gef,L00
  688.        JE              Gef,#01 [FALSE] L0144
  689.        PRINT_RET       "You are carrying nothing."
  690. L0144: JE              Gef,#02 [FALSE] L0145
  691.        PRINT           "You are carrying"
  692. L0145: RTRUE           
  693. L0146: JE              Ge9,#0f [FALSE] L0170
  694.        STORE           Gef,L00
  695.        JE              Gef,#01 [FALSE] L0147
  696.        PRINT_RET       "Taken."
  697. L0147: JE              Gef,#02 [FALSE] L0148
  698.        PRINT_RET       "You are always self-possessed."
  699. L0148: JE              Gef,#03 [FALSE] L0149
  700.        PRINT           "I don't suppose "
  701.        CALL_2N         R0102 (L01)
  702.        PRINT_RET       " would care for that."
  703. L0149: JE              Gef,#04 [FALSE] L0152
  704.        PRINT           "You'd have to get "
  705.        TEST_ATTR       L01,#14 [FALSE] L0150
  706.        PRINT           "off "
  707.        JUMP            L0151
  708. L0150: PRINT           "out of "
  709. L0151: CALL_2N         R0102 (L01)
  710.        PRINT_RET       " first."
  711. L0152: JE              Gef,#05 [FALSE] L0153
  712.        PRINT           "You already have "
  713.        CALL_2N         R0009 (L01)
  714.        PRINT_RET       "."
  715. L0153: JE              Gef,#06 [FALSE] L0156
  716.        TEST_ATTR       G2a,#1e [FALSE] L0154
  717.        PRINT           "Those seem "
  718.        JUMP            L0155
  719. L0154: PRINT           "That seems "
  720. L0155: PRINT           "to belong to "
  721.        CALL_2N         R0102 (L01)
  722.        PRINT_RET       "."
  723. L0156: JE              Gef,#07 [FALSE] L0159
  724.        TEST_ATTR       G2a,#1e [FALSE] L0157
  725.        PRINT           "Those seem "
  726.        JUMP            L0158
  727. L0157: PRINT           "That seems "
  728. L0158: PRINT           "to be a part of "
  729.        CALL_2N         R0102 (L01)
  730.        PRINT_RET       "."
  731. L0159: JE              Gef,#08 [FALSE] L0160
  732.        CALL_2N         R0012 (L01)
  733.        PRINT           " "
  734.        CALL_2N         R0011 (L01)
  735.        PRINT_RET       "n't available."
  736. L0160: JE              Gef,#09 [FALSE] L0161
  737.        CALL_2N         R0103 (L01)
  738.        PRINT           " "
  739.        CALL_2N         R0011 (L01)
  740.        PRINT_RET       "n't open."
  741. L0161: JE              Gef,#0a [FALSE] L0164
  742.        TEST_ATTR       L01,#1e [FALSE] L0162
  743.        PRINT           "They're "
  744.        JUMP            L0163
  745. L0162: PRINT           "That's "
  746. L0163: PRINT_RET       "hardly portable."
  747. L0164: JE              Gef,#0b [FALSE] L0167
  748.        TEST_ATTR       L01,#1e [FALSE] L0165
  749.        PRINT           "They're "
  750.        JUMP            L0166
  751. L0165: PRINT           "That's "
  752. L0166: PRINT_RET       "fixed in place."
  753. L0167: JE              Gef,#0c [FALSE] L0168
  754.        PRINT_RET       "You're carrying too many things already."
  755. L0168: JE              Gef,#0d [FALSE] L0169
  756.        PRINT           "(putting "
  757.        CALL_2N         R0102 (L01)
  758.        PRINT           " into "
  759.        CALL_2N         R0102 (#0000)
  760.        PRINT_RET       " to make room)"
  761. L0169: RTRUE           
  762. L0170: JE              Ge9,#10 [FALSE] L0177
  763.        STORE           Gef,L00
  764.        JE              Gef,#01 [FALSE] L0173
  765.        TEST_ATTR       L01,#1e [FALSE] L0171
  766.        CALL_2N         R0103 (L01)
  767.        PRINT           " are "
  768.        JUMP            L0172
  769. L0171: CALL_2N         R0103 (L01)
  770.        PRINT           " is "
  771. L0172: PRINT_RET       "already here."
  772. L0173: JE              Gef,#02 [FALSE] L0174
  773.        PRINT           "You haven't got "
  774.        CALL_2N         R0009 (L01)
  775.        PRINT_RET       "."
  776. L0174: JE              Gef,#03 [FALSE] L0175
  777.        PRINT           "(first taking "
  778.        CALL_2N         R0102 (L01)
  779.        PRINT_RET       " off)"
  780. L0175: JE              Gef,#04 [FALSE] L0176
  781.        PRINT_RET       "Dropped."
  782. L0176: RTRUE           
  783. L0177: JE              Ge9,#11 [FALSE] L0185
  784.        STORE           Gef,L00
  785.        JE              Gef,#01 [FALSE] L0180
  786.        TEST_ATTR       L01,#1e [FALSE] L0178
  787.        PRINT           "They are"
  788.        JUMP            L0179
  789. L0178: PRINT           "It is "
  790. L0179: PRINT_RET       " unfortunately closed."
  791. L0180: JE              Gef,#02 [FALSE] L0183
  792.        TEST_ATTR       L01,#1e [FALSE] L0181
  793.        PRINT           "But they aren't"
  794.        JUMP            L0182
  795. L0181: PRINT           "But it isn't"
  796. L0182: PRINT_RET       " there now."
  797. L0183: JE              Gef,#03 [FALSE] L0184
  798.        PRINT_RET       "Removed."
  799. L0184: RTRUE           
  800. L0185: JE              Ge9,#12 [FALSE] L0194
  801.        STORE           Gef,L00
  802.        JE              Gef,#01 [FALSE] L0186
  803.        PRINT           "You need to be holding "
  804.        CALL_2N         R0102 (L01)
  805.        PRINT           " before you can put "
  806.        CALL_2N         R0010 (L01)
  807.        PRINT_RET       " on top of something else."
  808. L0186: JE              Gef,#02 [FALSE] L0187
  809.        PRINT_RET       "You can't put something on top of itself."
  810. L0187: JE              Gef,#03 [FALSE] L0188
  811.        PRINT           "Putting things on "
  812.        CALL_2N         R0102 (L01)
  813.        PRINT_RET       " would achieve nothing."
  814. L0188: JE              Gef,#04 [FALSE] L0189
  815.        PRINT_RET       "You lack the dexterity."
  816. L0189: JE              Gef,#05 [FALSE] L0190
  817.        PRINT           "(first taking "
  818.        CALL_2N         R0010 (L01)
  819.        PRINT_RET       " off)
  820. "
  821. L0190: JE              Gef,#06 [FALSE] L0191
  822.        PRINT           "There is no more room on "
  823.        CALL_2N         R0102 (L01)
  824.        PRINT_RET       "."
  825. L0191: JE              Gef,#07 [FALSE] L0192
  826.        PRINT_RET       "Done."
  827. L0192: JE              Gef,#08 [FALSE] L0193
  828.        PRINT           "You put "
  829.        CALL_2N         R0102 (L01)
  830.        PRINT           " on "
  831.        CALL_2N         R0102 (G2b)
  832.        PRINT_RET       "."
  833. L0193: RTRUE           
  834. L0194: JE              Ge9,#13 [FALSE] L0204
  835.        STORE           Gef,L00
  836.        JE              Gef,#01 [FALSE] L0195
  837.        PRINT           "You need to be holding "
  838.        CALL_2N         R0102 (L01)
  839.        PRINT           " before you can put "
  840.        CALL_2N         R0010 (L01)
  841.        PRINT_RET       " into something else."
  842. L0195: JE              Gef,#02 [FALSE] L0196
  843.        CALL_2N         R0012 (L01)
  844.        PRINT_RET       " can't contain things."
  845. L0196: JE              Gef,#03 [FALSE] L0197
  846.        CALL_2N         R0103 (L01)
  847.        PRINT           " "
  848.        CALL_2N         R0011 (L01)
  849.        PRINT_RET       " closed."
  850. L0197: JE              Gef,#04 [FALSE] L0198
  851.        PRINT           "You'll need to take "
  852.        CALL_2N         R0010 (L01)
  853.        PRINT_RET       " off first."
  854. L0198: JE              Gef,#05 [FALSE] L0199
  855.        PRINT_RET       "You can't put something inside itself."
  856. L0199: JE              Gef,#06 [FALSE] L0200
  857.        PRINT           "(first taking "
  858.        CALL_2N         R0010 (L01)
  859.        PRINT_RET       " off)
  860. "
  861. L0200: JE              Gef,#07 [FALSE] L0201
  862.        PRINT           "There is no more room in "
  863.        CALL_2N         R0102 (L01)
  864.        PRINT_RET       "."
  865. L0201: JE              Gef,#08 [FALSE] L0202
  866.        PRINT_RET       "Done."
  867. L0202: JE              Gef,#09 [FALSE] L0203
  868.        PRINT           "You put "
  869.        CALL_2N         R0102 (L01)
  870.        PRINT           " into "
  871.        CALL_2N         R0102 (G2b)
  872.        PRINT_RET       "."
  873. L0203: RTRUE           
  874. L0204: JE              Ge9,#14 [FALSE] L0208
  875.        STORE           Gef,L00
  876.        JE              Gef,#01 [FALSE] L0205
  877.        CALL_2N         R0103 (L01)
  878.        PRINT_RET       " can't contain things."
  879. L0205: JE              Gef,#02 [FALSE] L0206
  880.        CALL_2N         R0103 (L01)
  881.        PRINT           " "
  882.        CALL_2N         R0011 (L01)
  883.        PRINT_RET       " closed."
  884. L0206: JE              Gef,#03 [FALSE] L0207
  885.        CALL_2N         R0103 (L01)
  886.        PRINT           " "
  887.        CALL_2N         R0011 (L01)
  888.        PRINT_RET       " empty already."
  889. L0207: RTRUE           
  890. L0208: JE              Ge9,#15 [FALSE] L0214
  891.        STORE           Gef,L00
  892.        JE              Gef,#01 [FALSE] L0209
  893.        PRINT           "You aren't holding "
  894.        CALL_2N         R0102 (L01)
  895.        PRINT_RET       "."
  896. L0209: JE              Gef,#02 [FALSE] L0210
  897.        PRINT           "You juggle "
  898.        CALL_2N         R0102 (L01)
  899.        PRINT_RET       " for a while, but don't achieve much."
  900. L0210: JE              Gef,#03 [FALSE] L0213
  901.        CALL_2N         R0103 (L01)
  902.        TEST_ATTR       L01,#1e [FALSE] L0211
  903.        PRINT           " don't"
  904.        JUMP            L0212
  905. L0211: PRINT           " doesn't"
  906. L0212: PRINT_RET       " seem interested."
  907. L0213: RTRUE           
  908. L0214: JE              Ge9,#16 [FALSE] L0217
  909.        STORE           Gef,L00
  910.        JE              Gef,#01 [FALSE] L0215
  911.        PRINT           "You aren't holding "
  912.        CALL_2N         R0102 (L01)
  913.        PRINT_RET       "."
  914. L0215: JE              Gef,#02 [FALSE] L0216
  915.        CALL_2N         R0103 (L01)
  916.        PRINT           " "
  917.        CALL_2N         R0011 (L01)
  918.        PRINT_RET       " unimpressed."
  919. L0216: RTRUE           
  920. L0217: JE              Ge9,#17 [FALSE] L0235
  921.        STORE           Gef,L00
  922.        JE              Gef,#01 [FALSE] L0220
  923.        PRINT           "But you're already "
  924.        TEST_ATTR       L01,#14 [FALSE] L0218
  925.        PRINT           "on "
  926.        JUMP            L0219
  927. L0218: PRINT           "in "
  928. L0219: CALL_2N         R0102 (L01)
  929.        PRINT_RET       "."
  930. L0220: JE              Gef,#02 [FALSE] L0223
  931.        TEST_ATTR       L01,#1e [FALSE] L0221
  932.        PRINT           "They're"
  933.        JUMP            L0222
  934. L0221: PRINT           "That's"
  935. L0222: PRINT_RET       " not something you can enter."
  936. L0223: JE              Gef,#03 [FALSE] L0224
  937.        PRINT           "You can't get into the closed "
  938.        CALL_2N         R0104 (L01)
  939.        PRINT_RET       "."
  940. L0224: JE              Gef,#04 [FALSE] L0225
  941.        PRINT_RET       "You can only get into something freestanding."
  942. L0225: JE              Gef,#05 [FALSE] L0228
  943.        PRINT           "You get "
  944.        TEST_ATTR       L01,#14 [FALSE] L0226
  945.        PRINT           "onto "
  946.        JUMP            L0227
  947. L0226: PRINT           "into "
  948. L0227: CALL_2N         R0102 (L01)
  949.        PRINT_RET       "."
  950. L0228: JE              Gef,#06 [FALSE] L0231
  951.        PRINT           "(getting "
  952.        TEST_ATTR       L01,#14 [FALSE] L0229
  953.        PRINT           "off "
  954.        JUMP            L0230
  955. L0229: PRINT           "out of "
  956. L0230: CALL_2N         R0102 (L01)
  957.        PRINT_RET       ")"
  958. L0231: JE              Gef,#07 [FALSE] L0234
  959.        TEST_ATTR       L01,#14 [FALSE] L0232
  960.        PRINT           "(getting onto "
  961.        CALL_2N         R0102 (L01)
  962.        PRINT_RET       ")
  963. "
  964. L0232: TEST_ATTR       L01,#04 [FALSE] L0233
  965.        PRINT           "(getting into "
  966.        CALL_2N         R0102 (L01)
  967.        PRINT_RET       ")
  968. "
  969. L0233: PRINT           "(entering "
  970.        CALL_2N         R0102 (L01)
  971.        PRINT_RET       ")
  972. "
  973. L0234: RTRUE           
  974. L0235: JE              Ge9,#18 [FALSE] L0236
  975.        PRINT           "But you aren't on "
  976.        CALL_2N         R0102 (L01)
  977.        PRINT_RET       " at the moment."
  978. L0236: JE              Ge9,#19 [FALSE] L0242
  979.        STORE           Gef,L00
  980.        JE              Gef,#01 [FALSE] L0237
  981.        PRINT_RET       "But you aren't in anything at the moment."
  982. L0237: JE              Gef,#02 [FALSE] L0238
  983.        PRINT           "You can't get out of the closed "
  984.        CALL_2N         R0104 (L01)
  985.        PRINT_RET       "."
  986. L0238: JE              Gef,#03 [FALSE] L0241
  987.        PRINT           "You get "
  988.        TEST_ATTR       L01,#14 [FALSE] L0239
  989.        PRINT           "off "
  990.        JUMP            L0240
  991. L0239: PRINT           "out of "
  992. L0240: CALL_2N         R0102 (L01)
  993.        PRINT_RET       "."
  994. L0241: RTRUE           
  995. L0242: JE              Ge9,#1a [FALSE] L0243
  996.        PRINT_RET       "You'll have to say which compass direction to go in."
  997. L0243: JE              Ge9,#1b [FALSE] L0253
  998.        STORE           Gef,L00
  999.        JE              Gef,#01 [FALSE] L0246
  1000.        PRINT           "You'll have to get "
  1001.        TEST_ATTR       L01,#14 [FALSE] L0244
  1002.        PRINT           "off "
  1003.        JUMP            L0245
  1004. L0244: PRINT           "out of "
  1005. L0245: CALL_2N         R0102 (L01)
  1006.        PRINT_RET       " first."
  1007. L0246: JE              Gef,#02 [FALSE] L0247
  1008.        PRINT_RET       "You can't go that way."
  1009. L0247: JE              Gef,#03 [FALSE] L0248
  1010.        PRINT           "You are unable to climb "
  1011.        CALL_2N         R0102 (L01)
  1012.        PRINT_RET       "."
  1013. L0248: JE              Gef,#04 [FALSE] L0249
  1014.        PRINT           "You are unable to descend by "
  1015.        CALL_2N         R0102 (L01)
  1016.        PRINT_RET       "."
  1017. L0249: JE              Gef,#05 [FALSE] L0250
  1018.        PRINT           "You can't, since "
  1019.        CALL_2N         R0102 (L01)
  1020.        PRINT           " "
  1021.        CALL_2N         R0011 (L01)
  1022.        PRINT_RET       " in the way."
  1023. L0250: JE              Gef,#06 [FALSE] L0252
  1024.        PRINT           "You can't, since "
  1025.        CALL_2N         R0102 (L01)
  1026.        TEST_ATTR       L01,#1e [FALSE] L0251
  1027.        PRINT_RET       " lead nowhere."
  1028. L0251: PRINT_RET       " leads nowhere."
  1029. L0252: RTRUE           
  1030. L0253: JE              Ge9,#1c [FALSE] L0254
  1031.        PRINT_RET       " is now in its normal "brief" printing mode, which
  1032. gives long descriptions of places never before visited and short descriptions
  1033. otherwise."
  1034. L0254: JE              Ge9,#1d [FALSE] L0255
  1035.        PRINT_RET       " is now in its "verbose" mode, which always gives long
  1036. descriptions of locations (even if you've been there before)."
  1037. L0255: JE              Ge9,#1e [FALSE] L0256
  1038.        PRINT_RET       " is now in its "superbrief" mode, which always gives
  1039. short descriptions of locations (even if you haven't been there before)."
  1040. L0256: JE              Ge9,#1f [FALSE] L0270
  1041.        STORE           Gef,L00
  1042.        JE              Gef,#01 [FALSE] L0257
  1043.        PRINT           " (on "
  1044.        CALL_2N         R0102 (L01)
  1045.        PRINT           ")"
  1046.        JUMP            L0269
  1047. L0257: JE              Gef,#02 [FALSE] L0258
  1048.        PRINT           " (in "
  1049.        CALL_2N         R0102 (L01)
  1050.        PRINT           ")"
  1051.        JUMP            L0269
  1052. L0258: JE              Gef,#03 [FALSE] L0259
  1053.        PRINT           " (as "
  1054.        PRINT_OBJ       L01
  1055.        PRINT           ")"
  1056.        JUMP            L0269
  1057. L0259: JE              Gef,#04 [FALSE] L0261
  1058.        PRINT           "
  1059. On "
  1060.        CALL_2N         R0102 (L01)
  1061.        ADD             #0008,#0010 -> -(SP)
  1062.        ADD             (SP)+,#0080 -> -(SP)
  1063.        ADD             (SP)+,#0040 -> -(SP)
  1064.        ADD             (SP)+,#0400 -> -(SP)
  1065.        ADD             (SP)+,#0800 -> -(SP)
  1066.        GET_CHILD       L01 -> -(SP) [FALSE] L0260
  1067. L0260: CALL_VN         R0120 ((SP)+,(SP)+)
  1068.        PRINT_RET       "."
  1069. L0261: JE              L01,G00 [TRUE] L0264
  1070.        TEST_ATTR       L01,#14 [FALSE] L0262
  1071.        PRINT           "
  1072. On "
  1073.        JUMP            L0263
  1074. L0262: PRINT           "
  1075. In "
  1076. L0263: CALL_2N         R0102 (L01)
  1077.        PRINT           " you"
  1078.        JUMP            L0265
  1079. L0264: PRINT           "
  1080. You"
  1081. L0265: PRINT           " can "
  1082.        JE              L00,#05 [FALSE] L0266
  1083.        PRINT           "also "
  1084. L0266: PRINT           "see "
  1085.        ADD             #0008,#0200 -> -(SP)
  1086.        ADD             (SP)+,#0010 -> -(SP)
  1087.        ADD             (SP)+,#0080 -> -(SP)
  1088.        ADD             (SP)+,#0040 -> -(SP)
  1089.        ADD             (SP)+,#0800 -> -(SP)
  1090.        GET_CHILD       L01 -> -(SP) [FALSE] L0267
  1091. L0267: CALL_VN         R0120 ((SP)+,(SP)+)
  1092.        JE              L01,G00 [TRUE] L0268
  1093.        PRINT_RET       "."
  1094. L0268: PRINT_RET       " here."
  1095. L0269: RTRUE           
  1096. L0270: JE              Ge9,#20 [FALSE] L0275
  1097.        STORE           Gef,L00
  1098.        JE              Gef,#01 [FALSE] L0271
  1099.        PRINT_RET       "Darkness, noun. An absence of light to see by."
  1100. L0271: JE              Gef,#02 [FALSE] L0272
  1101.        PRINT           "You see nothing special about "
  1102.        CALL_2N         R0102 (L01)
  1103.        PRINT_RET       "."
  1104. L0272: JE              Gef,#03 [FALSE] L0274
  1105.        CALL_2N         R0103 (L01)
  1106.        PRINT           " "
  1107.        CALL_2N         R0011 (L01)
  1108.        PRINT           " currently switched "
  1109.        TEST_ATTR       L01,#0d [FALSE] L0273
  1110.        PRINT_RET       "on."
  1111. L0273: PRINT_RET       "off."
  1112. L0274: RTRUE           
  1113. L0275: JE              Ge9,#21 [FALSE] L0278
  1114.        STORE           Gef,L00
  1115.        JE              Gef,#01 [FALSE] L0276
  1116.        PRINT_RET       "But it's dark."
  1117. L0276: JE              Gef,#02 [FALSE] L0277
  1118.        PRINT_RET       "You find nothing of interest."
  1119. L0277: RTRUE           
  1120. L0278: JE              Ge9,#22 [FALSE] L0288
  1121.        STORE           Gef,L00
  1122.        JE              Gef,#01 [FALSE] L0279
  1123.        PRINT_RET       "But it's dark."
  1124. L0279: JE              Gef,#02 [FALSE] L0280
  1125.        PRINT           "There is nothing on "
  1126.        CALL_2N         R0102 (L01)
  1127.        PRINT_RET       "."
  1128. L0280: JE              Gef,#03 [FALSE] L0282
  1129.        PRINT           "On "
  1130.        CALL_2N         R0102 (L01)
  1131.        ADD             #0040,#0008 -> -(SP)
  1132.        ADD             (SP)+,#0400 -> -(SP)
  1133.        ADD             (SP)+,#0800 -> -(SP)
  1134.        GET_CHILD       L01 -> -(SP) [FALSE] L0281
  1135. L0281: CALL_VN         R0120 ((SP)+,(SP)+)
  1136.        PRINT_RET       "."
  1137. L0282: JE              Gef,#04 [FALSE] L0283
  1138.        PRINT_RET       "You find nothing of interest."
  1139. L0283: JE              Gef,#05 [FALSE] L0284
  1140.        PRINT           "You can't see inside, since "
  1141.        CALL_2N         R0102 (L01)
  1142.        PRINT           " "
  1143.        CALL_2N         R0011 (L01)
  1144.        PRINT_RET       " closed."
  1145. L0284: JE              Gef,#06 [FALSE] L0285
  1146.        CALL_2N         R0103 (L01)
  1147.        PRINT           " "
  1148.        CALL_2N         R0011 (L01)
  1149.        PRINT_RET       " empty."
  1150. L0285: JE              Gef,#07 [FALSE] L0287
  1151.        PRINT           "In "
  1152.        CALL_2N         R0102 (L01)
  1153.        ADD             #0040,#0008 -> -(SP)
  1154.        ADD             (SP)+,#0400 -> -(SP)
  1155.        ADD             (SP)+,#0800 -> -(SP)
  1156.        GET_CHILD       L01 -> -(SP) [FALSE] L0286
  1157. L0286: CALL_VN         R0120 ((SP)+,(SP)+)
  1158.        PRINT_RET       "."
  1159. L0287: RTRUE           
  1160. L0288: JE              Ge9,#23 [FALSE] L0297
  1161.        STORE           Gef,L00
  1162.        JE              Gef,#01 [FALSE] L0291
  1163.        TEST_ATTR       L01,#1e [FALSE] L0289
  1164.        PRINT           "They don't "
  1165.        JUMP            L0290
  1166. L0289: PRINT           "That doesn't "
  1167. L0290: PRINT_RET       "seem to be something you can unlock."
  1168. L0291: JE              Gef,#02 [FALSE] L0292
  1169.        CALL_2N         R0013 (L01)
  1170.        PRINT_RET       " unlocked at the moment."
  1171. L0292: JE              Gef,#03 [FALSE] L0295
  1172.        TEST_ATTR       L01,#1e [FALSE] L0293
  1173.        PRINT           "Those don't "
  1174.        JUMP            L0294
  1175. L0293: PRINT           "That doesn't "
  1176. L0294: PRINT_RET       "seem to fit the lock."
  1177. L0295: JE              Gef,#04 [FALSE] L0296
  1178.        PRINT           "You unlock "
  1179.        CALL_2N         R0102 (L01)
  1180.        PRINT_RET       "."
  1181. L0296: RTRUE           
  1182. L0297: JE              Ge9,#24 [FALSE] L0307
  1183.        STORE           Gef,L00
  1184.        JE              Gef,#01 [FALSE] L0300
  1185.        TEST_ATTR       L01,#1e [FALSE] L0298
  1186.        PRINT           "They don't "
  1187.        JUMP            L0299
  1188. L0298: PRINT           "That doesn't "
  1189. L0299: PRINT_RET       "seem to be something you can lock."
  1190. L0300: JE              Gef,#02 [FALSE] L0301
  1191.        CALL_2N         R0013 (L01)
  1192.        PRINT_RET       " locked at the moment."
  1193. L0301: JE              Gef,#03 [FALSE] L0302
  1194.        PRINT           "First you'll have to close "
  1195.        CALL_2N         R0102 (L01)
  1196.        PRINT_RET       "."
  1197. L0302: JE              Gef,#04 [FALSE] L0305
  1198.        TEST_ATTR       L01,#1e [FALSE] L0303
  1199.        PRINT           "Those don't "
  1200.        JUMP            L0304
  1201. L0303: PRINT           "That doesn't "
  1202. L0304: PRINT_RET       "seem to fit the lock."
  1203. L0305: JE              Gef,#05 [FALSE] L0306
  1204.        PRINT           "You lock "
  1205.        CALL_2N         R0102 (L01)
  1206.        PRINT_RET       "."
  1207. L0306: RTRUE           
  1208. L0307: JE              Ge9,#25 [FALSE] L0311
  1209.        STORE           Gef,L00
  1210.        JE              Gef,#01 [FALSE] L0308
  1211.        CALL_2N         R0013 (L01)
  1212.        PRINT_RET       " not something you can switch."
  1213. L0308: JE              Gef,#02 [FALSE] L0309
  1214.        CALL_2N         R0013 (L01)
  1215.        PRINT_RET       " already on."
  1216. L0309: JE              Gef,#03 [FALSE] L0310
  1217.        PRINT           "You switch "
  1218.        CALL_2N         R0102 (L01)
  1219.        PRINT_RET       " on."
  1220. L0310: RTRUE           
  1221. L0311: JE              Ge9,#26 [FALSE] L0315
  1222.        STORE           Gef,L00
  1223.        JE              Gef,#01 [FALSE] L0312
  1224.        CALL_2N         R0013 (L01)
  1225.        PRINT_RET       " not something you can switch."
  1226. L0312: JE              Gef,#02 [FALSE] L0313
  1227.        CALL_2N         R0013 (L01)
  1228.        PRINT_RET       " already off."
  1229. L0313: JE              Gef,#03 [FALSE] L0314
  1230.        PRINT           "You switch "
  1231.        CALL_2N         R0102 (L01)
  1232.        PRINT_RET       " off."
  1233. L0314: RTRUE           
  1234. L0315: JE              Ge9,#27 [FALSE] L0325
  1235.        STORE           Gef,L00
  1236.        JE              Gef,#01 [FALSE] L0316
  1237.        CALL_2N         R0013 (L01)
  1238.        PRINT_RET       " not something you can open."
  1239. L0316: JE              Gef,#02 [FALSE] L0319
  1240.        TEST_ATTR       L01,#1e [FALSE] L0317
  1241.        PRINT           "They seem "
  1242.        JUMP            L0318
  1243. L0317: PRINT           "It seems "
  1244. L0318: PRINT_RET       "to be locked."
  1245. L0319: JE              Gef,#03 [FALSE] L0320
  1246.        CALL_2N         R0013 (L01)
  1247.        PRINT_RET       " already open."
  1248. L0320: JE              Gef,#04 [FALSE] L0323
  1249.        PRINT           "You open "
  1250.        CALL_2N         R0102 (L01)
  1251.        PRINT           ", revealing "
  1252.        ADD             #0008,#0040 -> -(SP)
  1253.        ADD             (SP)+,#0800 -> -(SP)
  1254.        GET_CHILD       L01 -> -(SP) [FALSE] L0321
  1255. L0321: CALL_VS         R0120 ((SP)+,(SP)+) -> -(SP)
  1256.        JZ              (SP)+ [FALSE] L0322
  1257.        PRINT_RET       "nothing."
  1258. L0322: PRINT_RET       "."
  1259. L0323: JE              Gef,#05 [FALSE] L0324
  1260.        PRINT           "You open "
  1261.        CALL_2N         R0102 (L01)
  1262.        PRINT_RET       "."
  1263. L0324: RTRUE           
  1264. L0325: JE              Ge9,#28 [FALSE] L0329
  1265.        STORE           Gef,L00
  1266.        JE              Gef,#01 [FALSE] L0326
  1267.        CALL_2N         R0013 (L01)
  1268.        PRINT_RET       " not something you can close."
  1269. L0326: JE              Gef,#02 [FALSE] L0327
  1270.        CALL_2N         R0013 (L01)
  1271.        PRINT_RET       " already closed."
  1272. L0327: JE              Gef,#03 [FALSE] L0328
  1273.        PRINT           "You close "
  1274.        CALL_2N         R0102 (L01)
  1275.        PRINT_RET       "."
  1276. L0328: RTRUE           
  1277. L0329: JE              Ge9,#29 [FALSE] L0332
  1278.        STORE           Gef,L00
  1279.        JE              Gef,#01 [FALSE] L0330
  1280.        PRINT           "You're not wearing "
  1281.        CALL_2N         R0009 (L01)
  1282.        PRINT_RET       "."
  1283. L0330: JE              Gef,#02 [FALSE] L0331
  1284.        PRINT           "You take off "
  1285.        CALL_2N         R0102 (L01)
  1286.        PRINT_RET       "."
  1287. L0331: RTRUE           
  1288. L0332: JE              Ge9,#2a [FALSE] L0337
  1289.        STORE           Gef,L00
  1290.        JE              Gef,#01 [FALSE] L0333
  1291.        PRINT           "You can't wear "
  1292.        CALL_2N         R0009 (L01)
  1293.        PRINT_RET       "!"
  1294. L0333: JE              Gef,#02 [FALSE] L0334
  1295.        PRINT           "You're not holding "
  1296.        CALL_2N         R0009 (L01)
  1297.        PRINT_RET       "!"
  1298. L0334: JE              Gef,#03 [FALSE] L0335
  1299.        PRINT           "You're already wearing "
  1300.        CALL_2N         R0009 (L01)
  1301.        PRINT_RET       "!"
  1302. L0335: JE              Gef,#04 [FALSE] L0336
  1303.        PRINT           "You put on "
  1304.        CALL_2N         R0102 (L01)
  1305.        PRINT_RET       "."
  1306. L0336: RTRUE           
  1307. L0337: JE              Ge9,#2b [FALSE] L0340
  1308.        STORE           Gef,L00
  1309.        JE              Gef,#01 [FALSE] L0338
  1310.        CALL_2N         R0013 (L01)
  1311.        PRINT_RET       " plainly inedible."
  1312. L0338: JE              Gef,#02 [FALSE] L0339
  1313.        PRINT           "You eat "
  1314.        CALL_2N         R0102 (L01)
  1315.        PRINT_RET       ". Not bad."
  1316. L0339: RTRUE           
  1317. L0340: JE              Ge9,#2c,#2d [FALSE] L0341
  1318.        PRINT_RET       "That was a rhetorical question."
  1319. L0341: JE              Ge9,#2e [FALSE] L0342
  1320.        PRINT_RET       "This dangerous act would achieve little."
  1321. L0342: JE              Ge9,#2f [FALSE] L0343
  1322.        PRINT_RET       "Nothing practical results from your prayer."
  1323. L0343: JE              Ge9,#30 [FALSE] L0344
  1324.        PRINT_RET       "The dreadful truth is, this is not a dream."
  1325. L0344: JE              Ge9,#31 [FALSE] L0345
  1326.        PRINT_RET       "That seems unnecessary."
  1327. L0345: JE              Ge9,#32 [FALSE] L0346
  1328.        PRINT_RET       "Keep your mind on the game."
  1329. L0346: JE              Ge9,#33 [FALSE] L0347
  1330.        PRINT_RET       "What a good idea."
  1331. L0347: JE              Ge9,#34 [FALSE] L0348
  1332.        PRINT_RET       "You smell nothing unexpected."
  1333. L0348: JE              Ge9,#35 [FALSE] L0349
  1334.        PRINT_RET       "You hear nothing unexpected."
  1335. L0349: JE              Ge9,#36 [FALSE] L0350
  1336.        PRINT_RET       "You taste nothing unexpected."
  1337. L0350: JE              Ge9,#37 [FALSE] L0354
  1338.        STORE           Gef,L00
  1339.        JE              Gef,#01 [FALSE] L0351
  1340.        PRINT_RET       "Keep your hands to yourself!"
  1341. L0351: JE              Gef,#02 [FALSE] L0352
  1342.        PRINT_RET       "You feel nothing unexpected."
  1343. L0352: JE              Gef,#03 [FALSE] L0353
  1344.        PRINT_RET       "If you think that'll help."
  1345. L0353: RTRUE           
  1346. L0354: JE              Ge9,#38 [FALSE] L0355
  1347.        PRINT_RET       "Digging would achieve nothing here."
  1348. L0355: JE              Ge9,#39 [FALSE] L0356
  1349.        PRINT           "Cutting "
  1350.        CALL_2N         R0009 (L01)
  1351.        PRINT_RET       " up would achieve little."
  1352. L0356: JE              Ge9,#3a [FALSE] L0357
  1353.        PRINT_RET       "You jump on the spot, fruitlessly."
  1354. L0357: JE              Ge9,#3b,#3c [FALSE] L0358
  1355.        PRINT_RET       "You would achieve nothing by this."
  1356. L0358: JE              Ge9,#3d [FALSE] L0359
  1357.        PRINT_RET       "There's nothing suitable to drink here."
  1358. L0359: JE              Ge9,#3e [FALSE] L0360
  1359.        PRINT_RET       "But there's no water here to carry."
  1360. L0360: JE              Ge9,#3f [FALSE] L0361
  1361.        PRINT_RET       "Oh, don't apologise."
  1362. L0361: JE              Ge9,#40 [FALSE] L0362
  1363.        PRINT_RET       "Real adventurers do not use such language."
  1364. L0362: JE              Ge9,#41 [FALSE] L0363
  1365.        PRINT_RET       "Quite."
  1366. L0363: JE              Ge9,#42 [FALSE] L0364
  1367.        PRINT_RET       "Violence isn't the answer to this one."
  1368. L0364: JE              Ge9,#43 [FALSE] L0365
  1369.        PRINT_RET       "There's not enough water to swim in."
  1370. L0365: JE              Ge9,#44 [FALSE] L0366
  1371.        PRINT_RET       "There's nothing sensible to swing here."
  1372. L0366: JE              Ge9,#45 [FALSE] L0367
  1373.        PRINT           "You can't usefully blow "
  1374.        CALL_2N         R0009 (L01)
  1375.        PRINT_RET       "."
  1376. L0367: JE              Ge9,#46 [FALSE] L0368
  1377.        PRINT_RET       "You achieve nothing by this."
  1378. L0368: JE              Ge9,#47 [FALSE] L0369
  1379.        PRINT           "No, you can't set "
  1380.        CALL_2N         R0009 (L01)
  1381.        PRINT_RET       "."
  1382. L0369: JE              Ge9,#48 [FALSE] L0370
  1383.        PRINT           "No, you can't set "
  1384.        CALL_2N         R0009 (L01)
  1385.        PRINT_RET       " to anything."
  1386. L0370: JE              Ge9,#49 [FALSE] L0371
  1387.        PRINT_RET       "You wave, feeling foolish."
  1388. L0371: JE              Ge9,#4a [FALSE] L0374
  1389.        STORE           Gef,L00
  1390.        JE              Gef,#01 [FALSE] L0372
  1391.        PRINT           "But you aren't holding "
  1392.        CALL_2N         R0009 (L01)
  1393.        PRINT_RET       "."
  1394. L0372: JE              Gef,#02 [FALSE] L0373
  1395.        PRINT           "You look ridiculous waving "
  1396.        CALL_2N         R0102 (L01)
  1397.        PRINT_RET       "."
  1398. L0373: RTRUE           
  1399. L0374: JE              Ge9,#4b,#4c,#4d [FALSE] L0381
  1400.        STORE           Gef,L00
  1401.        JE              Gef,#01 [FALSE] L0377
  1402.        TEST_ATTR       L01,#1e [FALSE] L0375
  1403.        PRINT           "Those are "
  1404.        JUMP            L0376
  1405. L0375: PRINT           "It is "
  1406. L0376: PRINT_RET       "fixed in place."
  1407. L0377: JE              Gef,#02 [FALSE] L0378
  1408.        PRINT_RET       "You are unable to."
  1409. L0378: JE              Gef,#03 [FALSE] L0379
  1410.        PRINT_RET       "Nothing obvious happens."
  1411. L0379: JE              Gef,#04 [FALSE] L0380
  1412.        PRINT_RET       "That would be less than courteous."
  1413. L0380: RTRUE           
  1414. L0381: JE              Ge9,#4e [FALSE] L0385
  1415.        STORE           Gef,L00
  1416.        JE              Gef,#01 [FALSE] L0382
  1417.        PRINT_RET       "Is that the best you can think of?"
  1418. L0382: JE              Gef,#02 [FALSE] L0383
  1419.        PRINT_RET       "That's not a direction."
  1420. L0383: JE              Gef,#03 [FALSE] L0384
  1421.        PRINT_RET       "Not that way you can't."
  1422. L0384: RTRUE           
  1423. L0385: JE              Ge9,#4f [FALSE] L0388
  1424.        STORE           Gef,L00
  1425.        JE              Gef,#01 [FALSE] L0386
  1426.        PRINT_RET       "Keep your hands to yourself."
  1427. L0386: JE              Gef,#02 [FALSE] L0387
  1428.        PRINT_RET       "You achieve nothing by this."
  1429. L0387: RTRUE           
  1430. L0388: JE              Ge9,#50 [FALSE] L0391
  1431.        STORE           Gef,L00
  1432.        JE              Gef,#01 [FALSE] L0389
  1433.        PRINT_RET       "Futile."
  1434. L0389: JE              Gef,#02 [FALSE] L0390
  1435.        PRINT_RET       "You lack the nerve when it comes to the crucial
  1436. moment."
  1437. L0390: RTRUE           
  1438. L0391: JE              Ge9,#51 [FALSE] L0394
  1439.        STORE           Gef,L00
  1440.        JE              Gef,#01 [FALSE] L0392
  1441.        PRINT_RET       "You talk to yourself a while."
  1442. L0392: JE              Gef,#02 [FALSE] L0393
  1443.        PRINT_RET       "This provokes no reaction."
  1444. L0393: RTRUE           
  1445. L0394: JE              Ge9,#52,#53 [FALSE] L0395
  1446.        PRINT_RET       "There is no reply."
  1447. L0395: JE              Ge9,#54 [FALSE] L0396
  1448.        PRINT_RET       "Nothing is on sale."
  1449. L0396: JE              Ge9,#55 [FALSE] L0397
  1450.        PRINT_RET       "Your singing is abominable."
  1451. L0397: JE              Ge9,#56 [FALSE] L0398
  1452.        PRINT_RET       "I don't think much is to be achieved by that."
  1453. L0398: JE              Ge9,#57 [FALSE] L0399
  1454.        PRINT_RET       "Time passes."
  1455. L0399: JE              Ge9,#58 [FALSE] L0400
  1456.        PRINT_RET       "You aren't feeling especially drowsy."
  1457. L0400: JE              Ge9,#59 [FALSE] L0401
  1458.        PRINT           "You discover nothing of interest in "
  1459.        CALL_2N         R0102 (L01)
  1460.        PRINT_RET       "."
  1461. L0401: RTRUE           
  1462.  
  1463. Routine R0015, 0 locals
  1464.  
  1465.        CALL_VS         R0236 (#1007,#11) -> -(SP)
  1466.        RET_POPPED      
  1467.  
  1468. Routine R0016, 0 locals
  1469.  
  1470.        CALL_VS         R0236 (#1007,#12) -> -(SP)
  1471.        RET_POPPED      
  1472.  
  1473. Routine R0017, 0 locals
  1474.  
  1475.        CALL_VS         R0236 (#1007,#13) -> -(SP)
  1476.        RET_POPPED      
  1477.  
  1478. Routine R0018, 1 local
  1479.  
  1480.        JE              L00,#0f [FALSE] L0001
  1481.        STORE           G51,#01
  1482.        STORE           G52,#0f
  1483.        RTRUE           
  1484. L0001: LOADB           L00,#00 -> -(SP)
  1485.        AND             (SP)+,#0f -> G51
  1486.        ADD             L00,#01 -> -(SP)
  1487.        LOADW           (SP)+,#00 -> G52
  1488.        RTRUE           
  1489.  
  1490. Routine R0019, 2 locals
  1491.  
  1492.        STORE           L01,#00
  1493. L0001: JL              L01,#20 [FALSE] L0002
  1494.        STOREW          #280e,L01,#0f
  1495.        STOREW          #278e,L01,#01
  1496.        STOREW          #27ce,L01,#0f
  1497.        INC             L01
  1498.        JUMP            L0001
  1499. L0002: LOADB           L00,#01 -> -(SP)
  1500.        LOADB           L00,#00 -> -(SP)
  1501.        MUL             #0100,(SP)+ -> -(SP)
  1502.        ADD             (SP)+,(SP)+ -> G4e
  1503.        AND             G4e,#0400 -> -(SP)
  1504.        JZ              (SP)+ [FALSE] L0003
  1505.        PUSH            #00
  1506.        JUMP            L0004
  1507. L0003: PUSH            #01
  1508. L0004: PULL            G4f
  1509.        AND             G4e,#03ff -> G4e
  1510.        DEC             L00
  1511.        STORE           G4a,#00
  1512.        STORE           L01,#00
  1513. L0005: ADD             L00,#03 -> L00
  1514.        LOADB           L00,#00 -> -(SP)
  1515.        JE              (SP)+,#0f [FALSE] L0006
  1516.        JUMP            L0008
  1517. L0006: STOREW          #280e,L01,L00
  1518.        LOADW           #280e,L01 -> -(SP)
  1519.        CALL_2N         R0018 ((SP)+)
  1520.        JE              G51,#02 [TRUE] L0007
  1521.        INC             G4a
  1522. L0007: STOREW          #278e,L01,G51
  1523.        STOREW          #27ce,L01,G52
  1524.        INC             L01
  1525.        JUMP            L0005
  1526. L0008: ADD             L00,#01 -> -(SP)
  1527.        RET_POPPED      
  1528.  
  1529. Routine R0020, 1 local
  1530.  
  1531.        CALL_2N         R0022 (L00)
  1532.        RFALSE          
  1533.  
  1534. Routine R0021, 7 locals
  1535.  
  1536.        CALL_1N         R0090
  1537. L0001: STORE           L03,#00
  1538. L0002: JL              L03,#0a [FALSE] L0003
  1539.        LOADB           L01,L03 -> -(SP)
  1540.        STOREB          #2bbb,L03,(SP)+
  1541.        INC             L03
  1542.        JUMP            L0002
  1543. L0003: STOREB          L00,#00,#78
  1544.        STOREB          L01,#00,#40
  1545.        CALL_2N         R0236 (#1008)
  1546.        CALL_1N         R0298
  1547.        STORE           Gef,#00
  1548.        STORE           Gec,L00
  1549.        STOREB          Gec,#01,#00
  1550.        CALL_1N         R0239
  1551.        READ            Gec,L01 -> Gef
  1552.        LOADB           L01,#01 -> L02
  1553.        JZ              L02 [FALSE] L0004
  1554.        CALL_VN         R0236 (#1007,#0a)
  1555.        JUMP            L0001
  1556. L0004: LOADW           L01,#01 -> L04
  1557.        JE              L04,"oops","o","oops" [FALSE] L0005
  1558.        JUMP            L0016
  1559. L0005: JE              L04,"undo","undo","undo" [FALSE] L0012
  1560.        LOADB           #2a47,#01 -> -(SP)
  1561.        JE              (SP)+,#01 [FALSE] L0012
  1562.        JE              G08,#01 [FALSE] L0006
  1563.        CALL_VN         R0236 (#1007,#0b)
  1564.        JUMP            L0001
  1565. L0006: JZ              G05 [FALSE] L0007
  1566.        CALL_VN         R0236 (#1007,#06)
  1567.        JUMP            L0001
  1568. L0007: JE              G05,#01 [FALSE] L0008
  1569.        JUMP            L0010
  1570. L0008: JE              G06,#01 [FALSE] L0009
  1571.        CALL_VN         R0236 (#1007,#0c)
  1572.        JUMP            L0001
  1573. L0009: RESTORE_UNDO    -> L03
  1574.        JZ              L03 [FALSE] L0011
  1575. L0010: CALL_VN         R0236 (#1007,#07)
  1576. L0011: JUMP            L0001
  1577. L0012: SAVE_UNDO       -> L03
  1578.        STORE           G06,#00
  1579.        STORE           G05,#02
  1580.        JE              L03,#ffff [FALSE] L0013
  1581.        STORE           G05,#00
  1582. L0013: JZ              L03 [FALSE] L0014
  1583.        STORE           G05,#01
  1584. L0014: JE              L03,#02 [FALSE] L0015
  1585.        SET_TEXT_STYLE  BOLDFACE
  1586.        CALL_2N         R0104 (G00)
  1587.        PRINT           "
  1588. "
  1589.        SET_TEXT_STYLE  ROMAN
  1590.        CALL_VN         R0236 (#1007,#0d)
  1591.        STORE           G06,#01
  1592.        JUMP            L0001
  1593. L0015: RET             L02
  1594. L0016: JZ              G78 [FALSE] L0017
  1595.        CALL_VN         R0236 (#1007,#0e)
  1596.        JUMP            L0001
  1597. L0017: JE              L02,#01 [FALSE] L0018
  1598.        CALL_VN         R0236 (#1007,#0f)
  1599.        JUMP            L0001
  1600. L0018: JG              L02,#02 [FALSE] L0019
  1601.        CALL_VN         R0236 (#1007,#10)
  1602.        JUMP            L0001
  1603. L0019: LOADW           L01,#03 -> L05
  1604.        LOADW           L01,#04 -> L06
  1605.        STORE           L03,#00
  1606. L0020: JL              L03,#0a [FALSE] L0021
  1607.        LOADB           #2bbb,L03 -> -(SP)
  1608.        STOREB          L01,L03,(SP)+
  1609.        INC             L03
  1610.        JUMP            L0020
  1611. L0021: MUL             #02,G78 -> -(SP)
  1612.        SUB             (SP)+,#01 -> L04
  1613.        STOREW          L01,L04,L05
  1614.        ADD             L04,#01 -> -(SP)
  1615.        STOREW          L01,(SP)+,L06
  1616.        RET             L02
  1617.  
  1618. Routine R0022, 11 locals
  1619.  
  1620.        JE              G3e,#01 [FALSE] L0003
  1621.        STORE           L05,#00
  1622. L0001: JL              L05,#08 [FALSE] L0002
  1623.        LOADW           #26ee,L05 -> -(SP)
  1624.        STOREW          L00,L05,(SP)+
  1625.        INC             L05
  1626.        JUMP            L0001
  1627. L0002: STORE           G3e,#00
  1628.        RTRUE           
  1629. L0003: JE              G7a,#01 [FALSE] L0004
  1630.        STORE           G7a,#00
  1631.        TOKENISE        #29ce,#2a47
  1632.        JUMP            L0005
  1633. L0004: CALL_VN         R0021 (#29ce,#2a47)
  1634. L0005: STORE           G33,#01
  1635.        LOADB           #2a47,#01 -> G74
  1636.        STORE           G73,#01
  1637.        CALL_1N         R0003
  1638.        TOKENISE        #29ce,#2a47
  1639.        CALL_1N         R0299
  1640.        LOADB           #2a47,#01 -> G74
  1641.        STORE           L07,#00
  1642.        STORE           G76,#01
  1643.        STORE           G34,G12
  1644.        CALL_2S         R0023 (G12) -> G35
  1645.        STORE           G77,#00
  1646. L0006: STORE           G69,#00
  1647.        STORE           G4e,#ffff
  1648. L0007: STORE           G73,G76
  1649.        CALL_1S         R0056 -> G75
  1650.        JE              G75,#ffff [FALSE] L0008
  1651.        STORE           G42,#01
  1652.        JUMP            L0077
  1653. L0008: JE              G75,"g","again" [FALSE] L0009
  1654.        STORE           G75,"again"
  1655. L0009: JE              G75,"again" [FALSE] L0014
  1656.        JE              G34,G12 [TRUE] L0010
  1657.        CALL_VN         R0236 (#1007,#14)
  1658.        JUMP            L0004
  1659. L0010: LOADB           #2b42,#01 -> -(SP)
  1660.        JZ              (SP)+ [FALSE] L0011
  1661.        CALL_VN         R0236 (#1007,#15)
  1662.        JUMP            L0004
  1663. L0011: STORE           L05,#00
  1664. L0012: JL              L05,#78 [FALSE] L0013
  1665.        LOADB           #2b42,L05 -> -(SP)
  1666.        STOREB          #29ce,L05,(SP)+
  1667.        INC             L05
  1668.        JUMP            L0012
  1669. L0013: JUMP            L0005
  1670. L0014: JE              G75,"again" [TRUE] L0016
  1671.        STORE           L05,#00
  1672. L0015: JL              L05,#78 [FALSE] L0016
  1673.        LOADB           #29ce,L05 -> -(SP)
  1674.        STOREB          #2b42,L05,(SP)+
  1675.        INC             L05
  1676.        JUMP            L0015
  1677. L0016: JZ              G77 [FALSE] L0021
  1678.        CALL_VS         R0084 (G34,#1c) -> L05
  1679.        JL              L05,#00 [FALSE] L0017
  1680.        STORE           G77,G76
  1681.        SUB             #00,L05 -> L05
  1682. L0017: JE              L05,#01 [FALSE] L0018
  1683.        STOREW          L00,#00,G27
  1684.        STOREW          L00,#01,G2a
  1685.        STOREW          L00,#02,G2b
  1686.        RTRUE           
  1687. L0018: JZ              L05 [TRUE] L0019
  1688.        STORE           G75,L05
  1689.        DEC             G73
  1690.        DEC             G76
  1691.        JUMP            L0020
  1692. L0019: STORE           G73,G76
  1693.        CALL_1S         R0055 -> G75
  1694. L0020: JUMP            L0022
  1695. L0021: STORE           G77,#00
  1696. L0022: JZ              G75 [TRUE] L0023
  1697.        LOADB           G75,#06 -> -(SP)
  1698.        AND             (SP)+,#01 -> -(SP)
  1699.        JZ              (SP)+ [FALSE] L0036
  1700. L0023: STORE           G73,G76
  1701.        STORE           G5a,#00
  1702.        STORE           G53,#00
  1703.        CALL_VS         R0029 (#06,#00,#00) -> L09
  1704.        JE              L09,#2710 [FALSE] L0024
  1705.        JUMP            L0005
  1706. L0024: JZ              L09 [TRUE] L0025
  1707.        STOREW          L00,#00,#1b
  1708.        STOREW          L00,#01,#01
  1709.        STOREW          L00,#02,L09
  1710.        JUMP            L0104
  1711. L0025: JE              G34,G12 [FALSE] L0029
  1712.        STORE           L06,#02
  1713. L0026: JG              L06,G74 [TRUE] L0028
  1714.        CALL_1S         R0055 -> L05
  1715.        JE              L05,"comma," [FALSE] L0027
  1716.        JUMP            L0030
  1717. L0027: INC             L06
  1718.        JUMP            L0026
  1719. L0028: CALL_2S         R0302 (G75) -> G75
  1720.        JZ              G75 [TRUE] L0029
  1721.        JUMP            L0036
  1722. L0029: STORE           G42,#0c
  1723.        JUMP            L0077
  1724. L0030: SUB             G73,#01 -> L06
  1725.        JE              L06,#01 [FALSE] L0031
  1726.        CALL_VN         R0236 (#1007,#16)
  1727.        JUMP            L0004
  1728. L0031: STORE           G73,#01
  1729.        STORE           G55,#01
  1730.        STORE           G68,#01
  1731.        CALL_VS         R0029 (G12,G35,#06) -> L09
  1732.        STORE           G68,#00
  1733.        JE              L09,#2710 [FALSE] L0032
  1734.        JUMP            L0005
  1735. L0032: JZ              L09 [FALSE] L0033
  1736.        CALL_VN         R0236 (#1007,#17)
  1737.        JUMP            L0004
  1738. L0033: TEST_ATTR       L09,#00 [TRUE] L0034
  1739.        TEST_ATTR       L09,#16 [TRUE] L0034
  1740.        CALL_VN         R0236 (#1007,#18,L09)
  1741.        JUMP            L0004
  1742. L0034: JE              G73,L06 [TRUE] L0035
  1743.        CALL_VN         R0236 (#1007,#19)
  1744.        JUMP            L0004
  1745. L0035: CALL_2N         R0071 (L09)
  1746.        ADD             L06,#01 -> G76
  1747.        STORE           G34,L09
  1748.        CALL_2S         R0023 (L09) -> G35
  1749.        JUMP            L0007
  1750. L0036: LOADB           G75,#06 -> -(SP)
  1751.        AND             (SP)+,#02 -> -(SP)
  1752.        DIV             (SP)+,#02 -> G36
  1753.        JE              G36,#01 [FALSE] L0037
  1754.        JE              G34,G12 [TRUE] L0037
  1755.        STORE           G42,#0c
  1756.        STORE           G36,#00
  1757.        JUMP            L0077
  1758. L0037: LOADB           G75,#07 -> -(SP)
  1759.        SUB             #ff,(SP)+ -> L05
  1760.        LOADW           #00,#07 -> -(SP)
  1761.        LOADW           (SP)+,L05 -> L01
  1762.        LOADB           L01,#00 -> -(SP)
  1763.        SUB             (SP)+,#01 -> L03
  1764.        STORE           G64,#ffff
  1765.        STORE           G65,#ffff
  1766.        STORE           G42,#01
  1767.        STORE           G43,#01
  1768.        ADD             L01,#01 -> L04
  1769.        STORE           L02,#00
  1770. L0038: JG              L02,L03 [TRUE] L0077
  1771.        STORE           L05,#00
  1772. L0039: JL              L05,#20 [FALSE] L0040
  1773.        STOREW          #280e,L05,#0f
  1774.        STOREW          #278e,L05,#01
  1775.        STOREW          #27ce,L05,#0f
  1776.        INC             L05
  1777.        JUMP            L0039
  1778. L0040: CALL_2S         R0019 (L04) -> L04
  1779.        STORE           G40,#00
  1780.        STORE           G4b,#00
  1781.        STORE           G46,#00
  1782.        STORE           G47,#00
  1783.        STORE           G39,#00
  1784.        STORE           G3a,#00
  1785.        STOREW          #266e,#00,#00
  1786.        STORE           G59,#00
  1787.        STORE           G41,#01
  1788.        ADD             G76,#01 -> G73
  1789.        STORE           G50,#ffff
  1790.        STORE           G5a,#00
  1791.        STORE           L05,#00
  1792.        STORE           L0a,#00
  1793.        STORE           G44,#00
  1794. L0041: LOADW           #280e,G44 -> -(SP)
  1795.        JE              (SP)+,#0f [TRUE] L0051
  1796.        STORE           G69,#00
  1797.        LOADW           #278e,G44 -> -(SP)
  1798.        JE              (SP)+,#02 [TRUE] L0042
  1799.        INC             L05
  1800. L0042: LOADW           #278e,G44 -> -(SP)
  1801.        JE              (SP)+,#01 [FALSE] L0050
  1802.        LOADW           #27ce,G44 -> -(SP)
  1803.        JE              (SP)+,#02 [FALSE] L0043
  1804.        STORE           L0a,#01
  1805. L0043: LOADW           #27ce,G44 -> -(SP)
  1806.        JE              (SP)+,#04,#05 [FALSE] L0050
  1807.        JE              L05,#01 [FALSE] L0050
  1808.        INC             G44
  1809.        LOADW           #278e,G44 -> -(SP)
  1810.        JE              (SP)+,#02 [FALSE] L0049
  1811. L0044: LOADW           #278e,G44 -> -(SP)
  1812.        JE              (SP)+,#02 [FALSE] L0045
  1813.        INC             G44
  1814.        JUMP            L0044
  1815. L0045: LOADW           #278e,G44 -> -(SP)
  1816.        JE              (SP)+,#01 [FALSE] L0049
  1817.        LOADW           #27ce,G44 -> -(SP)
  1818.        JZ              (SP)+ [FALSE] L0049
  1819. L0046: JG              G73,G74 [TRUE] L0049
  1820.        SUB             G44,#01 -> -(SP)
  1821.        LOADW           #27ce,(SP)+ -> -(SP)
  1822.        CALL_1S         R0055 -> -(SP)
  1823.        JE              (SP)+,(SP)+ [FALSE] L0048
  1824.        CALL_VS         R0029 (G35,G34,#00) -> L09
  1825.        JE              L09,#2710 [FALSE] L0047
  1826.        JUMP            L0005
  1827. L0047: JL              L09,#02 [TRUE] L0048
  1828.        STORE           G50,L09
  1829. L0048: JUMP            L0046
  1830. L0049: JUMP            L0051
  1831. L0050: INC             G44
  1832.        JUMP            L0041
  1833. L0051: STORE           G62,#00
  1834.        JZ              L0a [TRUE] L0052
  1835.        JE              G4a,#01 [FALSE] L0052
  1836.        JE              G4e,#0f [FALSE] L0052
  1837.        STORE           G62,#01
  1838. L0052: STORE           G40,#00
  1839.        STORE           G4b,#00
  1840.        STORE           G46,#00
  1841.        STORE           G47,#00
  1842.        STORE           G39,#00
  1843.        STORE           G3a,#00
  1844.        STOREW          #266e,#00,#00
  1845.        STORE           G41,#01
  1846.        ADD             G76,#01 -> G73
  1847.        STORE           G44,#01
  1848. L0053: STOREW          #270e,G44,#ffff
  1849.        STORE           G69,#00
  1850.        SUB             G44,#01 -> -(SP)
  1851.        LOADW           #280e,(SP)+ -> L08
  1852.        LOADW           #280e,G44 -> G55
  1853.        JE              L08,#0f [TRUE] L0056
  1854.        STORE           G68,#00
  1855.        SUB             G44,#01 -> -(SP)
  1856.        CALL_VS         R0028 (L00,(SP)+) -> L09
  1857.        STORE           G68,#00
  1858.        JE              L09,#2710 [FALSE] L0054
  1859.        JUMP            L0005
  1860. L0054: JZ              L09 [FALSE] L0055
  1861.        JUMP            L0073
  1862. L0055: JUMP            L0072
  1863. L0056: JG              G73,G74 [TRUE] L0061
  1864.        CALL_1S         R0055 -> L09
  1865.        JE              L09,"then","then","then" [TRUE] L0057
  1866.        JE              L09,"comma," [FALSE] L0058
  1867. L0057: STORE           G7a,#01
  1868.        SUB             G73,#01 -> G7b
  1869.        JUMP            L0061
  1870. L0058: STORE           L0a,#00
  1871. L0059: JL              L0a,#20 [FALSE] L0060
  1872.        LOADW           #270e,L0a -> -(SP)
  1873.        STOREW          #274e,L0a,(SP)+
  1874.        INC             L0a
  1875.        JUMP            L0059
  1876. L0060: STORE           G45,G44
  1877.        STORE           G41,#02
  1878.        JUMP            L0073
  1879. L0061: JL              G46,#01 [TRUE] L0062
  1880.        LOADW           L00,#02 -> -(SP)
  1881.        JZ              (SP)+ [FALSE] L0062
  1882.        LOADW           L00,#03 -> -(SP)
  1883.        CALL_2S         R0031 ((SP)+) -> L09
  1884.        JZ              L09 [TRUE] L0062
  1885.        STORE           G41,L09
  1886.        JUMP            L0073
  1887. L0062: JL              G46,#02 [TRUE] L0063
  1888.        LOADW           L00,#03 -> -(SP)
  1889.        JZ              (SP)+ [FALSE] L0063
  1890.        LOADW           L00,#02 -> -(SP)
  1891.        CALL_2S         R0031 ((SP)+) -> L09
  1892.        JZ              L09 [TRUE] L0063
  1893.        STORE           G41,L09
  1894.        JUMP            L0073
  1895. L0063: JE              G62,#02 [FALSE] L0064
  1896.        LOADW           L00,#02 -> -(SP)
  1897.        JE              (SP)+,G34 [FALSE] L0064
  1898.        STORE           G42,#11
  1899.        JUMP            L0077
  1900. L0064: STORE           G78,#00
  1901.        JZ              G4b [TRUE] L0065
  1902.        PRINT           "("
  1903.        CALL_2N         R0035 (G4b)
  1904.        PRINT           ")
  1905. "
  1906. L0065: STOREW          L00,#00,G4e
  1907.        STOREW          L00,#01,G46
  1908.        JZ              G4f [TRUE] L0066
  1909.        JE              G46,#02 [FALSE] L0066
  1910.        LOADW           L00,#02 -> L05
  1911.        LOADW           L00,#03 -> -(SP)
  1912.        STOREW          L00,#02,(SP)+
  1913.        STOREW          L00,#03,L05
  1914.        JE              G47,#02 [FALSE] L0066
  1915.        STORE           L05,G48
  1916.        STORE           G48,G49
  1917.        STORE           G49,L05
  1918. L0066: JG              G46,#00 [FALSE] L0067
  1919.        LOADW           L00,#02 -> -(SP)
  1920.        JL              (SP)+,#02 [TRUE] L0067
  1921.        LOADW           L00,#02 -> -(SP)
  1922.        CALL_2N         R0071 ((SP)+)
  1923. L0067: JZ              G40 [TRUE] L0070
  1924.        JE              G34,G12 [FALSE] L0070
  1925.        STORE           G3e,#01
  1926.        STORE           L05,#00
  1927. L0068: JL              L05,#08 [FALSE] L0069
  1928.        LOADW           L00,L05 -> -(SP)
  1929.        STOREW          #26ee,L05,(SP)+
  1930.        INC             L05
  1931.        JUMP            L0068
  1932. L0069: STOREW          L00,#00,#0f
  1933.        STOREW          L00,#01,#01
  1934.        STOREW          L00,#02,G40
  1935.        CALL_VN         R0236 (#1007,#1a,G40)
  1936. L0070: JE              G7a,#01 [FALSE] L0071
  1937.        STORE           G73,G7b
  1938.        JUMP            L0104
  1939. L0071: RTRUE           
  1940. L0072: INC             G44
  1941.        JUMP            L0053
  1942. L0073: JG              G41,G42 [FALSE] L0074
  1943.        STORE           G42,G41
  1944. L0074: JE              G41,#12 [TRUE] L0075
  1945.        JG              G41,G43 [FALSE] L0075
  1946.        STORE           G43,G41
  1947. L0075: JE              G62,#02 [FALSE] L0076
  1948.        JE              G41,#11 [FALSE] L0076
  1949.        JUMP            L0077
  1950. L0076: INC             L02
  1951.        JUMP            L0038
  1952. L0077: STORE           G41,G42
  1953.        JE              G34,G12 [TRUE] L0080
  1954.        JG              G77,#00 [FALSE] L0078
  1955.        STORE           G76,G77
  1956.        JUMP            L0006
  1957. L0078: STORE           G73,G76
  1958.        CALL_1S         R0055 -> G39
  1959.        JE              G39,"comma," [FALSE] L0079
  1960.        CALL_1S         R0055 -> G39
  1961.        INC             G76
  1962. L0079: CALL_2S         R0059 (G76) -> G3a
  1963.        STOREW          L00,#00,#1009
  1964.        STOREW          L00,#01,#02
  1965.        STOREW          L00,#02,#01
  1966.        STORE           G48,G39
  1967.        STOREW          L00,#03,G34
  1968.        STORE           G3c,G76
  1969.        SUB             G74,G3c -> -(SP)
  1970.        ADD             (SP)+,#01 -> G3d
  1971.        RTRUE           
  1972. L0080: CALL_2S         R0303 (G41) -> -(SP)
  1973.        JZ              (SP)+ [TRUE] L0081
  1974.        JUMP            L0004
  1975. L0081: STORE           G64,G66
  1976.        STORE           G65,G67
  1977.        JE              G41,#01 [FALSE] L0082
  1978.        CALL_VN         R0236 (#1007,#1b)
  1979.        STORE           G78,#01
  1980. L0082: JE              G41,#02 [FALSE] L0085
  1981.        CALL_VN         R0236 (#1007,#1c)
  1982.        STORE           L0a,#00
  1983. L0083: JL              L0a,#20 [FALSE] L0084
  1984.        LOADW           #274e,L0a -> -(SP)
  1985.        STOREW          #270e,L0a,(SP)+
  1986.        INC             L0a
  1987.        JUMP            L0083
  1988. L0084: STORE           G44,G45
  1989.        CALL_2N         R0035 (#00)
  1990.        PRINT           ".
  1991. "
  1992. L0085: JE              G41,#03 [FALSE] L0086
  1993.        CALL_VN         R0236 (#1007,#1d)
  1994. L0086: JE              G41,#04 [FALSE] L0087
  1995.        CALL_VN         R0236 (#1007,#1e)
  1996.        STORE           G78,G79
  1997. L0087: JE              G41,#05 [FALSE] L0088
  1998.        CALL_VN         R0236 (#1007,#1f)
  1999. L0088: JE              G41,#06 [FALSE] L0089
  2000.        CALL_VN         R0236 (#1007,#20)
  2001.        STORE           G78,G79
  2002. L0089: JE              G41,#07 [FALSE] L0090
  2003.        CALL_VN         R0236 (#1007,#21)
  2004. L0090: JE              G41,#08 [FALSE] L0091
  2005.        CALL_VN         R0236 (#1007,#22)
  2006. L0091: JE              G41,#09 [FALSE] L0092
  2007.        CALL_VN         R0236 (#1007,#23)
  2008. L0092: JE              G41,#0a [FALSE] L0093
  2009.        CALL_VN         R0236 (#1007,#24)
  2010. L0093: JE              G41,#0b [FALSE] L0094
  2011.        CALL_VN         R0236 (#1007,#25)
  2012. L0094: JE              G41,#0c [FALSE] L0095
  2013.        CALL_VN         R0236 (#1007,#26)
  2014. L0095: JE              G41,#0d [FALSE] L0096
  2015.        CALL_VN         R0236 (#1007,#27)
  2016. L0096: JE              G41,#0e [FALSE] L0098
  2017.        JE              G65,#ffff [FALSE] L0097
  2018.        CALL_VN         R0236 (#1007,#23)
  2019.        JUMP            L0098
  2020. L0097: CALL_VN         R0236 (#1007,#28)
  2021. L0098: JE              G41,#0f [FALSE] L0099
  2022.        CALL_VN         R0236 (#1007,#29)
  2023. L0099: JE              G41,#10 [FALSE] L0100
  2024.        CALL_VN         R0236 (#1007,#2a,G58)
  2025. L0100: JE              G41,#11 [FALSE] L0102
  2026.        JE              G57,#64 [FALSE] L0101
  2027.        CALL_VN         R0236 (#1007,#2b)
  2028.        JUMP            L0102
  2029. L0101: CALL_VN         R0236 (#1007,#2c)
  2030. L0102: JE              G41,#12 [FALSE] L0103
  2031.        STORE           G6b,#03
  2032.        CALL_1S         G6a -> -(SP)
  2033.        JE              (SP)+,#ffff [FALSE] L0103
  2034.        STORE           G42,G43
  2035.        JUMP            L0077
  2036. L0103: JUMP            L0004
  2037. L0104: JG              G73,G74 [TRUE] RTRUE
  2038.        CALL_1S         R0055 -> L05
  2039.        JE              L05,"then","then","then" [TRUE] L0105
  2040.        JE              L05,"comma," [FALSE] L0109
  2041. L0105: JG              G73,G74 [FALSE] L0106
  2042.        STORE           G7a,#00
  2043.        RTRUE           
  2044. L0106: CALL_2S         R0057 (G76) -> L05
  2045.        CALL_2S         R0057 (G73) -> L06
  2046. L0107: JL              L05,L06 [FALSE] L0108
  2047.        STOREB          L05,#00,#20
  2048.        INC             L05
  2049.        JUMP            L0107
  2050. L0108: TOKENISE        #29ce,#2a47
  2051.        STORE           G7a,#01
  2052.        RTRUE           
  2053. L0109: STORE           G42,#02
  2054.        JUMP            L0077
  2055.  
  2056. Routine R0023, 2 locals
  2057.  
  2058.        GET_PARENT      L00 -> L01
  2059. L0001: GET_PARENT      L01 -> -(SP)
  2060.        JZ              (SP)+ [TRUE] L0003
  2061.        TEST_ATTR       L01,#17 [TRUE] L0002
  2062.        TEST_ATTR       L01,#14 [TRUE] L0002
  2063.        TEST_ATTR       L01,#04 [FALSE] L0003
  2064.        TEST_ATTR       L01,#0e [FALSE] L0003
  2065. L0002: GET_PARENT      L01 -> L01
  2066.        JUMP            L0001
  2067. L0003: JE              L00,G12 [FALSE] L0004
  2068.        JE              G00,#13 [FALSE] L0004
  2069.        RET             #13
  2070. L0004: RET             L01
  2071.  
  2072. Routine R0024, 0 locals
  2073.  
  2074.        STORE           G5a,#00
  2075.        STORE           G5b,#00
  2076.        STORE           G5c,#00
  2077.        STORE           G5d,#00
  2078.        STORE           G60,#00
  2079.        STORE           G5e,#00
  2080.        STORE           G5f,#0fff
  2081.        RTRUE           
  2082.  
  2083. Routine R0025, 7 locals
  2084.  
  2085.        CALL_1N         R0024
  2086.        JG              G73,G74 [FALSE] L0001
  2087.        RFALSE          
  2088. L0001: STORE           L03,#01
  2089. L0002: JZ              L03 [TRUE] L0018
  2090.        CALL_1S         R0056 -> L01
  2091.        STORE           L03,#00
  2092.        STORE           L02,#01
  2093.        JUMP            L0004
  2094. L0003: ADD             L02,#04 -> L02
  2095. L0004: LOADW           #2bf7,#00 -> -(SP)
  2096.        JG              L02,(SP)+ [TRUE] L0011
  2097.        LOADW           #2bf7,L02 -> -(SP)
  2098.        JE              L01,(SP)+ [FALSE] L0010
  2099.        STORE           L03,#01
  2100.        ADD             L02,#02 -> -(SP)
  2101.        LOADW           #2bf7,(SP)+ -> L05
  2102.        JE              L05,#0101 [TRUE] L0005
  2103.        STORE           G5a,#01
  2104. L0005: STORE           G60,#01
  2105.        ADD             L02,#01 -> -(SP)
  2106.        LOADW           #2bf7,(SP)+ -> -(SP)
  2107.        AND             G5f,(SP)+ -> G5f
  2108.        JE              L05,#0100 [FALSE] L0008
  2109.        ADD             L02,#03 -> -(SP)
  2110.        LOADW           #2bf7,(SP)+ -> L04
  2111.        STORE           Gef,L04
  2112.        JE              Gef,#00 [FALSE] L0006
  2113.        OR              G5b,#02 -> G5b
  2114.        JUMP            L0008
  2115. L0006: JE              Gef,#01 [FALSE] L0007
  2116.        OR              G5b,#04 -> G5b
  2117.        JUMP            L0008
  2118. L0007: CALL_2S         R0068 (L04) -> G5e
  2119.        JE              G5e,#ffff [FALSE] L0008
  2120.        STORE           G5e,#15
  2121. L0008: JE              L05,#09 [FALSE] L0009
  2122.        OR              G5b,#10 -> G5b
  2123. L0009: JE              L05,#fff7 [FALSE] L0010
  2124.        OR              G5b,#20 -> G5b
  2125. L0010: JUMP            L0003
  2126. L0011: JE              L01,"another","other","other" [FALSE] L0012
  2127.        STORE           G5a,#01
  2128.        STORE           L03,#01
  2129.        OR              G5b,#01 -> G5b
  2130. L0012: JE              L01,"all","each","every" [TRUE] L0013
  2131.        JE              L01,"everythin","both" [FALSE] L0015
  2132. L0013: STORE           G5a,#01
  2133.        STORE           L03,#01
  2134.        STORE           G5c,#64
  2135.        JE              G62,#01 [FALSE] L0014
  2136.        STORE           G62,#02
  2137. L0014: OR              G5b,#08 -> G5b
  2138. L0015: JZ              G61 [TRUE] L0016
  2139.        CALL_2S         R0106 (L01) -> L06
  2140.        JG              L06,#01 [FALSE] L0016
  2141.        STORE           G5d,#01
  2142.        STORE           G5a,#01
  2143.        STORE           L03,#01
  2144.        STORE           G5c,L06
  2145.        OR              G5b,#08 -> G5b
  2146. L0016: JE              L03,#01 [FALSE] L0017
  2147.        CALL_1S         R0056 -> -(SP)
  2148.        PULL            Gef
  2149.        JE              Gef,"of","of","of" [TRUE] L0017
  2150.        JE              Gef,"of" [TRUE] L0017
  2151.        DEC             G73
  2152. L0017: JUMP            L0002
  2153. L0018: DEC             G73
  2154.        JG              G5c,#00 [FALSE] L0019
  2155.        JZ              L00 [FALSE] L0019
  2156.        RET             #07
  2157. L0019: RFALSE          
  2158.  
  2159. Routine R0026, 1 local
  2160.  
  2161.        TEST_ATTR       L00,#00 [TRUE] RTRUE
  2162.        TEST_ATTR       L00,#16 [FALSE] RFALSE
  2163.        JE              G4e,#53,#52,#51 [TRUE] RTRUE
  2164.        JE              G4e,#5a [TRUE] RTRUE
  2165.        RFALSE          
  2166.  
  2167. Routine R0027, 2 locals
  2168.  
  2169.        LOADW           #27ce,L01 -> -(SP)
  2170.        JE              (SP)+,L00 [FALSE] L0001
  2171.        RET             L00
  2172. L0001: LOADW           #280e,L01 -> -(SP)
  2173.        LOADB           (SP)+,#00 -> -(SP)
  2174.        AND             (SP)+,#20 -> -(SP)
  2175.        JZ              (SP)+ [FALSE] L0002
  2176.        RET             #ffff
  2177. L0002: LOADW           #27ce,L01 -> -(SP)
  2178.        JE              (SP)+,L00 [FALSE] L0003
  2179.        RET             L00
  2180. L0003: INC             L01
  2181.        LOADW           #280e,L01 -> -(SP)
  2182.        LOADB           (SP)+,#00 -> -(SP)
  2183.        AND             (SP)+,#10 -> -(SP)
  2184.        JZ              (SP)+ [FALSE] L0002
  2185.        RET             #ffff
  2186.  
  2187. Routine R0028, 13 locals
  2188.  
  2189.        LOADW           #280e,L01 -> L02
  2190.        CALL_2N         R0018 (L02)
  2191.        STORE           G53,#00
  2192.        STORE           G33,#01
  2193.        STORE           Gef,G51
  2194.        JE              Gef,#01 [FALSE] L0020
  2195.        STORE           Gef,G52
  2196.        JE              Gef,#07 [FALSE] L0004
  2197.        CALL_2S         R0059 (G73) -> L03
  2198.        CALL_1S         R0055 -> G39
  2199.        JE              L03,#fc18 [FALSE] L0001
  2200.        STORE           L03,G39
  2201. L0001: STORE           G3a,L03
  2202.        JZ              G47 [FALSE] L0002
  2203.        STORE           G48,L03
  2204.        JUMP            L0003
  2205. L0002: STORE           G49,L03
  2206. L0003: INC             G47
  2207.        STORE           L09,#01
  2208.        JUMP            L0077
  2209. L0004: JE              Gef,#08 [FALSE] L0008
  2210.        PUSH            G73
  2211.        INC             G73
  2212.        CALL_2S         R0059 ((SP)+) -> L03
  2213.        JE              L03,#fc18 [FALSE] L0005
  2214.        STORE           G41,#03
  2215.        RFALSE          
  2216. L0005: PUSH            G47
  2217.        INC             G47
  2218.        JZ              (SP)+ [FALSE] L0006
  2219.        STORE           G48,L03
  2220.        JUMP            L0007
  2221. L0006: STORE           G49,L03
  2222. L0007: STORE           L09,#01
  2223.        JUMP            L0077
  2224. L0008: JE              Gef,#06 [FALSE] L0011
  2225.        JE              G4e,#52,#53,#5a [TRUE] L0009
  2226.        JE              G4e,#51 [FALSE] L0010
  2227. L0009: STORE           G68,#01
  2228. L0010: JUMP            L0019
  2229. L0011: JE              Gef,#09 [FALSE] L0019
  2230.        STORE           G3c,G73
  2231.        ADD             L01,#01 -> -(SP)
  2232.        LOADW           #278e,(SP)+ -> -(SP)
  2233.        JE              (SP)+,#02 [TRUE] L0012
  2234.        ADD             L01,#01 -> -(SP)
  2235.        LOADW           #280e,(SP)+ -> -(SP)
  2236.        JE              (SP)+,#0f [TRUE] L0012
  2237.        CALL_2N         R0111 (#0d)
  2238. L0012: CALL_1S         R0056 -> L04
  2239.        JE              L04,#ffff [TRUE] L0013
  2240.        ADD             L01,#01 -> -(SP)
  2241.        CALL_VS         R0027 (L04,(SP)+) -> -(SP)
  2242.        JE              (SP)+,#ffff [TRUE] L0012
  2243. L0013: DEC             G73
  2244.        SUB             G73,G3c -> G3d
  2245.        JZ              G3d [FALSE] L0014
  2246.        RTRUE           
  2247. L0014: JE              G4e,#53,#52,#51 [FALSE] L0018
  2248.        STORE           L04,G73
  2249.        STORE           G73,G3c
  2250.        CALL_1S         R0055 -> G3b
  2251.        JE              G3b,"the" [FALSE] L0015
  2252.        JG              G3d,#01 [FALSE] L0015
  2253.        CALL_1S         R0055 -> G3b
  2254. L0015: STORE           G73,L04
  2255.        PUSH            G47
  2256.        INC             G47
  2257.        JZ              (SP)+ [FALSE] L0016
  2258.        STORE           G48,G3b
  2259.        JUMP            L0017
  2260. L0016: STORE           G49,G3b
  2261. L0017: STORE           L09,#01
  2262.        JUMP            L0077
  2263. L0018: RTRUE           
  2264. L0019: JUMP            L0039
  2265. L0020: JE              Gef,#02 [FALSE] L0027
  2266.        LOADB           L02,#00 -> -(SP)
  2267.        AND             (SP)+,#10 -> -(SP)
  2268.        JZ              (SP)+ [TRUE] L0021
  2269.        RTRUE           
  2270. L0021: JG              G73,G74 [FALSE] L0024
  2271.        JZ              G4b [FALSE] L0022
  2272.        JL              G46,G4a [FALSE] L0022
  2273.        STORE           G4b,G44
  2274.        STORE           G4c,L02
  2275.        CALL_2S         R0062 (G52) -> -(SP)
  2276.        ADD             #2710,(SP)+ -> -(SP)
  2277.        STOREW          #270e,G44,(SP)+
  2278. L0022: JZ              G4b [FALSE] L0023
  2279.        RFALSE          
  2280. L0023: CALL_2S         R0062 (G52) -> -(SP)
  2281.        ADD             #2710,(SP)+ -> -(SP)
  2282.        STOREW          #270e,G44,(SP)+
  2283.        RTRUE           
  2284. L0024: CALL_1S         R0055 -> L04
  2285.        CALL_2S         R0062 (L04) -> -(SP)
  2286.        ADD             #2710,(SP)+ -> -(SP)
  2287.        STOREW          #270e,G44,(SP)+
  2288.        JE              L04,G52 [FALSE] L0025
  2289.        RTRUE           
  2290. L0025: CALL_VS         R0027 (L04,L01) -> -(SP)
  2291.        JE              (SP)+,#ffff [TRUE] L0026
  2292.        RTRUE           
  2293. L0026: RFALSE          
  2294. L0027: JE              Gef,#06 [FALSE] L0034
  2295.        CALL_1S         G52 -> L03
  2296.        JL              L03,#ff38 [FALSE] L0028
  2297.        ADD             L03,#0100 -> G52
  2298.        JUMP            L0039
  2299. L0028: JL              L03,#00 [TRUE] RFALSE
  2300.        JZ              L03 [FALSE] L0029
  2301.        DEC             G4a
  2302.        RTRUE           
  2303. L0029: JE              L03,#01 [FALSE] L0032
  2304.        JZ              G47 [FALSE] L0030
  2305.        STORE           G48,G3b
  2306.        JUMP            L0031
  2307. L0030: STORE           G49,G3b
  2308. L0031: INC             G47
  2309. L0032: JE              L03,#2710 [FALSE] L0033
  2310.        RET             L03
  2311. L0033: STORE           L09,L03
  2312.        JUMP            L0077
  2313. L0034: JE              Gef,#05 [FALSE] L0037
  2314.        STORE           G69,G52
  2315.        STORE           G6b,#01
  2316.        CALL_1S         G69 -> L03
  2317.        JE              L03,#01 [FALSE] L0035
  2318.        STORE           G52,#02
  2319.        JUMP            L0036
  2320. L0035: STORE           G52,#00
  2321. L0036: JUMP            L0039
  2322. L0037: JE              Gef,#04 [FALSE] L0038
  2323.        ADD             #01,G52 -> G53
  2324.        STORE           G52,#00
  2325.        JUMP            L0039
  2326. L0038: JE              Gef,#03 [FALSE] L0039
  2327.        STORE           G53,G52
  2328.        STORE           G52,#00
  2329. L0039: STORE           L02,G52
  2330.        STORE           L0c,#00
  2331.        JE              L02,#02,#03,#04 [TRUE] L0040
  2332.        JE              L02,#05 [FALSE] L0041
  2333. L0040: STORE           L0c,#01
  2334. L0041: STORE           L0b,#00
  2335.        STORE           L08,#01
  2336.        STORE           G4d,#00
  2337. L0042: CALL_1S         R0055 -> L04
  2338.        DEC             G73
  2339.        STORE           G64,#ffff
  2340.        STORE           G65,#ffff
  2341.        CALL_2S         R0068 (L04) -> L03
  2342.        JZ              L03 [TRUE] L0047
  2343.        STORE           G64,L04
  2344.        STORE           G65,L03
  2345.        JE              L03,#ffff [FALSE] L0047
  2346.        STORE           L03,#01
  2347.        JUMP            L0044
  2348. L0043: ADD             L03,#04 -> L03
  2349. L0044: JG              L03,#2bf7 [TRUE] L0046
  2350.        LOADW           #2bf7,L03 -> -(SP)
  2351.        JE              L04,(SP)+ [FALSE] L0045
  2352.        JUMP            L0047
  2353. L0045: JUMP            L0043
  2354. L0046: STORE           G66,G64
  2355.        STORE           G67,G65
  2356.        STORE           G41,#09
  2357.        RFALSE          
  2358. L0047: JE              L04,"me","myself","self" [FALSE] L0048
  2359.        STORE           G64,L04
  2360.        STORE           G65,G12
  2361. L0048: STORE           G61,#01
  2362.        STORE           L0a,G73
  2363. L0049: CALL_2S         R0025 (L0c) -> L03
  2364.        JZ              L03 [TRUE] L0050
  2365.        STORE           G41,L03
  2366.        RFALSE          
  2367. L0050: STORE           G78,G73
  2368.        JE              L02,#01 [TRUE] L0065
  2369.        LOADW           #266e,#00 -> L05
  2370.        CALL_VS         R0029 (G35,G34,L02) -> L03
  2371.        JE              L03,#2710 [FALSE] L0051
  2372.        RET             L03
  2373. L0051: JZ              L03 [FALSE] L0053
  2374.        JZ              G60 [TRUE] L0052
  2375.        CALL_1N         R0024
  2376.        STORE           G73,L0a
  2377.        JUMP            L0050
  2378. L0052: CALL_1S         R0036 -> G41
  2379.        JUMP            L0080
  2380. L0053: JE              L03,#01 [FALSE] L0059
  2381.        JZ              L0b [FALSE] L0054
  2382.        STORE           L0b,#01
  2383.        JUMP            L0058
  2384. L0054: LOADW           #266e,#00 -> L07
  2385.        STOREW          #266e,#00,L05
  2386.        ADD             L05,#01 -> L06
  2387. L0055: JG              L06,L07 [TRUE] L0058
  2388.        JZ              L08 [TRUE] L0056
  2389.        LOADW           #266e,L06 -> -(SP)
  2390.        CALL_2N         R0037 ((SP)+)
  2391.        JUMP            L0057
  2392. L0056: LOADW           #266e,L06 -> -(SP)
  2393.        CALL_2N         R0038 ((SP)+)
  2394. L0057: INC             L06
  2395.        JUMP            L0055
  2396. L0058: JUMP            L0064
  2397. L0059: JZ              G71 [FALSE] L0060
  2398.        JZ              G60 [TRUE] L0060
  2399.        CALL_1N         R0024
  2400.        STORE           G73,L0a
  2401.        JUMP            L0050
  2402. L0060: JE              L02,#06 [FALSE] L0061
  2403.        CALL_2S         R0026 (L03) -> -(SP)
  2404.        JZ              (SP)+ [FALSE] L0061
  2405.        STORE           G41,#0b
  2406.        JUMP            L0080
  2407. L0061: JZ              L0b [FALSE] L0062
  2408.        STORE           L09,L03
  2409.        JUMP            L0064
  2410. L0062: JZ              L08 [TRUE] L0063
  2411.        CALL_2N         R0037 (L03)
  2412.        JUMP            L0064
  2413. L0063: CALL_2N         R0038 (L03)
  2414. L0064: JUMP            L0071
  2415. L0065: CALL_VS         R0029 (G34,G35,L02) -> L03
  2416.        JE              L03,#2710 [FALSE] L0066
  2417.        RET             L03
  2418. L0066: JZ              L03 [FALSE] L0068
  2419.        JZ              G60 [TRUE] L0067
  2420.        CALL_1N         R0024
  2421.        STORE           G73,L0a
  2422.        JUMP            L0050
  2423. L0067: CALL_1S         R0036 -> G41
  2424.        RET             L03
  2425. L0068: GET_PARENT      L03 -> L04
  2426.        JE              L04,G34 [TRUE] L0070
  2427.        JE              G3e,#01 [FALSE] L0069
  2428.        STORE           G79,G78
  2429.        STORE           G41,#06
  2430.        JUMP            L0080
  2431. L0069: STORE           G40,L03
  2432. L0070: STORE           L09,L03
  2433. L0071: ADD             G78,G71 -> G73
  2434.        CALL_1S         R0055 -> L04
  2435.        JE              L04,"and","and","and" [TRUE] L0072
  2436.        JE              L04,"but","except","but" [TRUE] L0072
  2437.        JE              L04,"comma," [FALSE] L0076
  2438. L0072: JZ              L0c [FALSE] L0073
  2439.        STORE           G41,#07
  2440.        JUMP            L0080
  2441. L0073: JE              L04,"but","except","but" [FALSE] L0074
  2442.        SUB             #01,L08 -> L08
  2443. L0074: JZ              L0b [FALSE] L0075
  2444.        STOREW          #266e,#00,#01
  2445.        STOREW          #266e,#01,L09
  2446.        STORE           L0b,#01
  2447. L0075: STORE           G4d,#01
  2448.        STORE           G4b,#00
  2449.        JUMP            L0042
  2450. L0076: DEC             G73
  2451. L0077: JZ              L0b [TRUE] L0078
  2452.        STORE           L09,#00
  2453.        STORE           G59,L02
  2454.        JUMP            L0079
  2455. L0078: JE              G5a,#01 [FALSE] L0079
  2456.        AND             G5b,#08 -> -(SP)
  2457.        JZ              (SP)+ [TRUE] L0079
  2458.        JL              G5c,#64 [FALSE] L0079
  2459.        JG              G5c,#01 [FALSE] L0079
  2460.        STORE           G58,#01
  2461.        STORE           G57,G5c
  2462.        STORE           G41,#10
  2463.        JUMP            L0080
  2464. L0079: ADD             G46,#02 -> -(SP)
  2465.        STOREW          L00,(SP)+,L09
  2466.        INC             G46
  2467.        STOREW          #270e,G44,L09
  2468.        RTRUE           
  2469. L0080: JZ              G61 [TRUE] L0081
  2470.        JE              G5d,#01 [FALSE] L0081
  2471.        STORE           G61,#00
  2472.        STORE           G73,L0a
  2473.        JUMP            L0049
  2474. L0081: RFALSE          
  2475.  
  2476. Routine R0029, 10 locals
  2477.  
  2478.        STORE           G71,#00
  2479.        STORE           G6f,#00
  2480.        STORE           G72,G73
  2481.        STORE           G6e,#00
  2482.        CALL_VN         R0042 (L00,L01,L02)
  2483.        ADD             G72,G71 -> G73
  2484.        JZ              G6f [FALSE] L0001
  2485.        INC             G73
  2486.        RFALSE          
  2487. L0001: JG              G72,G74 [TRUE] L0003
  2488.        JE              G6f,#01 [FALSE] L0002
  2489.        LOADW           #284e,#00 -> L04
  2490.        RET             L04
  2491. L0002: JG              G73,G74 [TRUE] L0003
  2492.        CALL_1S         R0055 -> L04
  2493.        DEC             G73
  2494.        JE              L04,"and","and","and" [TRUE] L0003
  2495.        JE              L04,"comma,","then","then" [TRUE] L0003
  2496.        JE              L04,"then","but","except" [TRUE] L0003
  2497.        JE              L04,"but" [TRUE] L0003
  2498.        JE              G55,#0f [TRUE] RFALSE
  2499. L0003: STORE           G70,#00
  2500.        JE              G6f,#01 [FALSE] L0004
  2501.        LOADW           #284e,#00 -> L04
  2502. L0004: JG              G6f,#01 [FALSE] L0005
  2503.        CALL_2S         R0030 (L02) -> L04
  2504.        JE              L04,#ffff [TRUE] RFALSE
  2505.        JE              L04,#01 [TRUE] RTRUE
  2506. L0005: JZ              L04 [TRUE] L0008
  2507.        JZ              G4d [TRUE] L0006
  2508.        RET             L04
  2509. L0006: JZ              G4b [FALSE] L0007
  2510.        STORE           G4b,G44
  2511. L0007: STOREW          #270e,G44,L04
  2512.        RET             L04
  2513. L0008: JG              G72,G74 [FALSE] L0009
  2514.        JUMP            L0033
  2515. L0009: JE              L02,#06 [FALSE] L0010
  2516.        CALL_VN         R0236 (#1007,#2d)
  2517.        JUMP            L0011
  2518. L0010: CALL_VN         R0236 (#1007,#2e)
  2519. L0011: STORE           L05,G70
  2520.        STORE           L09,#00
  2521.        STORE           L04,#01
  2522. L0012: JG              L04,G70 [TRUE] L0019
  2523. L0013: LOADW           #28ce,L09 -> -(SP)
  2524.        JE              (SP)+,L04 [TRUE] L0014
  2525.        SUB             #00,L04 -> -(SP)
  2526.        LOADW           #28ce,L09 -> -(SP)
  2527.        JE              (SP)+,(SP)+ [TRUE] L0014
  2528.        INC             L09
  2529.        JUMP            L0013
  2530. L0014: LOADW           #284e,L09 -> L06
  2531.        LOADW           #28ce,L09 -> -(SP)
  2532.        JG              (SP)+,#00 [FALSE] L0015
  2533.        CALL_2N         R0102 (L06)
  2534.        JUMP            L0016
  2535. L0015: CALL_2N         R0101 (L06)
  2536. L0016: SUB             L05,#01 -> -(SP)
  2537.        JL              L04,(SP)+ [FALSE] L0017
  2538.        PRINT           ", "
  2539. L0017: SUB             L05,#01 -> -(SP)
  2540.        JE              L04,(SP)+ [FALSE] L0018
  2541.        PRINT_PADDR     S034
  2542. L0018: INC             L04
  2543.        JUMP            L0012
  2544. L0019: PRINT           "?
  2545. "
  2546. L0020: CALL_VS         R0021 (#2a88,#2b01) -> L08
  2547.        LOADW           #2b01,#01 -> L03
  2548.        JE              L03,"all","each","every" [TRUE] L0021
  2549.        JE              L03,"everythin","both" [FALSE] L0026
  2550. L0021: JE              L02,#02,#03,#04 [TRUE] L0022
  2551.        JE              L02,#05 [FALSE] L0025
  2552. L0022: LOADW           #266e,#00 -> L07
  2553.        STORE           L04,#00
  2554. L0023: JL              L04,G6f [FALSE] L0024
  2555.        ADD             L07,L04 -> -(SP)
  2556.        JL              (SP)+,#3f [FALSE] L0024
  2557.        LOADW           #284e,L04 -> L06
  2558.        ADD             L04,#01 -> -(SP)
  2559.        ADD             (SP)+,L07 -> -(SP)
  2560.        STOREW          #266e,(SP)+,L06
  2561.        INC             L04
  2562.        JUMP            L0023
  2563. L0024: ADD             L04,L07 -> -(SP)
  2564.        STOREW          #266e,#00,(SP)+
  2565.        RTRUE           
  2566. L0025: CALL_VN         R0236 (#1007,#2f)
  2567.        JUMP            L0020
  2568. L0026: JZ              L03 [TRUE] L0027
  2569.        LOADB           L03,#06 -> L05
  2570.        AND             L05,#01 -> -(SP)
  2571.        JE              #00,(SP)+ [TRUE] L0027
  2572.        CALL_VN         R0064 (#29ce,#2a88)
  2573.        RET             #2710
  2574. L0027: CALL_2S         R0057 (G72) -> -(SP)
  2575.        SUB             (SP)+,#29ce -> L06
  2576.        LOADB           #2a88,#01 -> -(SP)
  2577.        ADD             (SP)+,#01 -> L07
  2578.        LOADB           #29ce,#00 -> -(SP)
  2579.        ADD             #29ce,(SP)+ -> -(SP)
  2580.        SUB             (SP)+,#01 -> L05
  2581. L0028: ADD             #29ce,L06 -> -(SP)
  2582.        ADD             (SP)+,L07 -> -(SP)
  2583.        JL              L05,(SP)+ [TRUE] L0029
  2584.        SUB             L05,L07 -> -(SP)
  2585.        LOADB           #00,(SP)+ -> -(SP)
  2586.        STOREB          L05,#00,(SP)+
  2587.        DEC             L05
  2588.        JUMP            L0028
  2589. L0029: STORE           L04,#00
  2590. L0030: JL              L04,L07 [FALSE] L0031
  2591.        ADD             #02,L04 -> -(SP)
  2592.        LOADB           #2a88,(SP)+ -> -(SP)
  2593.        ADD             L06,L04 -> -(SP)
  2594.        STOREB          #29ce,(SP)+,(SP)+
  2595.        INC             L04
  2596.        JUMP            L0030
  2597. L0031: ADD             L06,L07 -> -(SP)
  2598.        SUB             (SP)+,#01 -> -(SP)
  2599.        STOREB          #29ce,(SP)+,#20
  2600.        LOADB           #29ce,#01 -> -(SP)
  2601.        ADD             (SP)+,L07 -> -(SP)
  2602.        STOREB          #29ce,#01,(SP)+
  2603.        LOADB           #29ce,#00 -> -(SP)
  2604.        SUB             (SP)+,#01 -> -(SP)
  2605.        LOADB           #29ce,#01 -> -(SP)
  2606.        JL              (SP)+,(SP)+ [TRUE] L0032
  2607.        LOADB           #29ce,#00 -> -(SP)
  2608.        STOREB          #29ce,#01,(SP)+
  2609. L0032: RET             #2710
  2610. L0033: JE              L02,#06 [FALSE] L0034
  2611.        CALL_VN         R0236 (#1007,#30)
  2612.        JUMP            L0035
  2613. L0034: CALL_VN         R0236 (#1007,#31)
  2614. L0035: CALL_VS         R0021 (#2a88,#2b01) -> L08
  2615.        LOADW           #2b01,#01 -> L03
  2616.        JZ              L03 [TRUE] L0036
  2617.        LOADB           L03,#06 -> L05
  2618.        AND             L05,#01 -> -(SP)
  2619.        JE              #00,(SP)+ [TRUE] L0036
  2620.        CALL_VN         R0064 (#29ce,#2a88)
  2621.        RET             #2710
  2622. L0036: JZ              G4b [TRUE] L0047
  2623.        STORE           L05,G4b
  2624. L0037: JL              L05,G44 [FALSE] L0047
  2625.        LOADB           #29ce,#01 -> -(SP)
  2626.        ADD             #02,(SP)+ -> L04
  2627.        STORE           Gef,#29ce
  2628.        STORE           Gee,#01
  2629.        LOADB           Gef,Gee -> Ged
  2630.        INC             Ged
  2631.        STOREB          Gef,Gee,Ged
  2632.        PUSH            L04
  2633.        INC             L04
  2634.        STOREB          #29ce,(SP)+,#20
  2635.        STOREW          #2b01,#01,#00
  2636.        LOADW           #270e,L05 -> -(SP)
  2637.        JL              (SP)+,#02 [TRUE] L0042
  2638.        LOADW           #270e,L05 -> -(SP)
  2639.        JL              (SP)+,#2710 [FALSE] L0042
  2640.        LOADW           #270e,L05 -> -(SP)
  2641.        CALL_2N         R0071 ((SP)+)
  2642.        STORE           L06,#01
  2643.        JUMP            L0039
  2644. L0038: ADD             L06,#03 -> L06
  2645. L0039: LOADW           #2bdd,#00 -> -(SP)
  2646.        JG              L06,(SP)+ [TRUE] L0041
  2647.        ADD             L06,#02 -> -(SP)
  2648.        LOADW           #2bdd,(SP)+ -> -(SP)
  2649.        LOADW           #270e,L05 -> -(SP)
  2650.        JE              (SP)+,(SP)+ [FALSE] L0040
  2651.        LOADW           #2bdd,L06 -> -(SP)
  2652.        STOREW          #2b01,#01,(SP)+
  2653.        JUMP            L0041
  2654. L0040: JUMP            L0038
  2655. L0041: JUMP            L0043
  2656. L0042: LOADW           #270e,L05 -> -(SP)
  2657.        SUB             (SP)+,#2710 -> -(SP)
  2658.        CALL_2S         R0063 ((SP)+) -> -(SP)
  2659.        STOREW          #2b01,#01,(SP)+
  2660. L0043: LOADW           #2b01,#01 -> -(SP)
  2661.        JZ              (SP)+ [TRUE] L0046
  2662.        ADD             #29ce,L04 -> L06
  2663.        OUTPUT_STREAM   REDIRECT_ENABLE,L06
  2664.        LOADW           #2b01,#01 -> -(SP)
  2665.        PRINT_ADDR      (SP)+
  2666.        OUTPUT_STREAM   #fffd
  2667.        LOADW           L06,#00 -> L06
  2668.        STORE           L07,L04
  2669. L0044: ADD             L04,L06 -> -(SP)
  2670.        JL              L07,(SP)+ [FALSE] L0045
  2671.        ADD             L07,#02 -> -(SP)
  2672.        LOADB           #29ce,(SP)+ -> -(SP)
  2673.        STOREB          #29ce,L07,(SP)+
  2674.        INC             L07
  2675.        JUMP            L0044
  2676. L0045: ADD             L04,L06 -> L04
  2677.        SUB             L04,#02 -> -(SP)
  2678.        STOREB          #29ce,#01,(SP)+
  2679. L0046: INC             L05
  2680.        JUMP            L0037
  2681. L0047: LOADB           #29ce,#01 -> -(SP)
  2682.        ADD             #02,(SP)+ -> L04
  2683.        STORE           Gef,#29ce
  2684.        STORE           Gee,#01
  2685.        LOADB           Gef,Gee -> Ged
  2686.        INC             Ged
  2687.        STOREB          Gef,Gee,Ged
  2688.        PUSH            L04
  2689.        INC             L04
  2690.        STOREB          #29ce,(SP)+,#20
  2691.        STORE           L05,#00
  2692.        JUMP            L0049
  2693. L0048: INC             L04
  2694.        INC             L05
  2695. L0049: LOADB           #2a88,#01 -> -(SP)
  2696.        JL              L05,(SP)+ [FALSE] L0051
  2697.        ADD             L05,#02 -> -(SP)
  2698.        LOADB           #2a88,(SP)+ -> -(SP)
  2699.        STOREB          #29ce,L04,(SP)+
  2700.        STORE           Gef,#29ce
  2701.        STORE           Gee,#01
  2702.        LOADB           Gef,Gee -> Ged
  2703.        INC             Ged
  2704.        STOREB          Gef,Gee,Ged
  2705.        LOADB           #29ce,#00 -> -(SP)
  2706.        LOADB           #29ce,#01 -> -(SP)
  2707.        JE              (SP)+,(SP)+ [FALSE] L0050
  2708.        JUMP            L0051
  2709. L0050: JUMP            L0048
  2710. L0051: RET             #2710
  2711.  
  2712. Routine R0030, 10 locals
  2713.  
  2714.        SUB             G6f,#01 -> L02
  2715.        STORE           L04,#00
  2716.        LOADW           #284e,#00 -> L05
  2717.        STORE           L01,#00
  2718. L0001: JG              L01,L02 [TRUE] L0014
  2719.        LOADW           #284e,L01 -> L06
  2720.        STOREW          #294e,L01,L04
  2721.        STORE           L07,L06
  2722. L0002: GET_PARENT      L07 -> L07
  2723.        JE              L07,G35,G34,#00 [FALSE] L0002
  2724.        JZ              L00 [FALSE] L0004
  2725.        JE              L07,G35 [FALSE] L0004
  2726.        JZ              G53 [TRUE] L0003
  2727.        CALL_2S         R0040 (L06) -> -(SP)
  2728.        JE              (SP)+,#01 [FALSE] L0004
  2729. L0003: INC             L04
  2730.        STORE           L05,L06
  2731. L0004: JE              L00,#01 [FALSE] L0005
  2732.        GET_PARENT      L06 -> -(SP)
  2733.        JE              (SP)+,G34 [FALSE] L0005
  2734.        INC             L04
  2735.        STORE           L05,L06
  2736. L0005: JE              L00,#02 [FALSE] L0006
  2737.        JE              L07,G35 [FALSE] L0006
  2738.        INC             L04
  2739.        STORE           L05,L06
  2740. L0006: JE              L00,#03 [FALSE] L0007
  2741.        GET_PARENT      L06 -> -(SP)
  2742.        JE              (SP)+,G34 [FALSE] L0007
  2743.        INC             L04
  2744.        STORE           L05,L06
  2745. L0007: JE              L00,#04,#05 [FALSE] L0012
  2746.        JE              G50,#ffff [FALSE] L0010
  2747.        JE              L00,#04 [FALSE] L0008
  2748.        INC             L04
  2749.        STORE           L05,L06
  2750. L0008: JE              L00,#05 [FALSE] L0009
  2751.        GET_PARENT      L06 -> -(SP)
  2752.        JE              (SP)+,G34 [TRUE] L0009
  2753.        INC             L04
  2754.        STORE           L05,L06
  2755. L0009: JUMP            L0012
  2756. L0010: JE              L00,#04 [FALSE] L0011
  2757.        JE              L06,G50 [TRUE] L0011
  2758.        INC             L04
  2759.        STORE           L05,L06
  2760. L0011: JE              L00,#05 [FALSE] L0012
  2761.        JIN             L06,G50 [FALSE] L0012
  2762.        INC             L04
  2763.        STORE           L05,L06
  2764. L0012: JE              L00,#06 [FALSE] L0013
  2765.        CALL_2S         R0026 (L06) -> -(SP)
  2766.        JE              (SP)+,#01 [FALSE] L0013
  2767.        INC             L04
  2768.        STORE           L05,L06
  2769. L0013: LOADW           #294e,L01 -> -(SP)
  2770.        SUB             L04,(SP)+ -> -(SP)
  2771.        MUL             #03e8,(SP)+ -> -(SP)
  2772.        STOREW          #294e,L01,(SP)+
  2773.        INC             L01
  2774.        JUMP            L0001
  2775. L0014: JE              L04,#01 [FALSE] L0015
  2776.        RET             L05
  2777. L0015: JE              L00,#06 [FALSE] L0016
  2778.        JZ              L04 [FALSE] L0016
  2779.        LOADW           #284e,#00 -> -(SP)
  2780.        RET_POPPED      
  2781. L0016: JZ              G5a [FALSE] L0017
  2782.        STORE           G5b,#00
  2783. L0017: CALL_1N         R0032
  2784.        JZ              G6f [FALSE] L0018
  2785.        RET             #ffff
  2786. L0018: JE              G5a,#01 [FALSE] L0030
  2787.        AND             G5b,#08 -> -(SP)
  2788.        JZ              (SP)+ [TRUE] L0030
  2789.        JE              L00,#02,#03,#04 [TRUE] L0019
  2790.        JE              L00,#05 [TRUE] L0019
  2791.        STORE           G41,#07
  2792.        RET             #ffff
  2793. L0019: STORE           L01,#00
  2794.        LOADW           #266e,#00 -> L09
  2795.        CALL_1S         R0033 -> L02
  2796.        JUMP            L0021
  2797. L0020: CALL_1S         R0033 -> L02
  2798. L0021: JE              L02,#ffff [TRUE] L0028
  2799.        JL              L01,G5c [FALSE] L0028
  2800.        ADD             L01,L09 -> -(SP)
  2801.        JL              (SP)+,#3f [FALSE] L0028
  2802.        STORE           L08,#00
  2803.        TEST_ATTR       L02,#03 [TRUE] L0022
  2804.        TEST_ATTR       L02,#1a [TRUE] L0022
  2805.        STORE           L08,#01
  2806. L0022: JE              L00,#03,#04 [FALSE] L0023
  2807.        GET_PARENT      L02 -> -(SP)
  2808.        JE              (SP)+,G34 [TRUE] L0023
  2809.        STORE           L08,#00
  2810. L0023: CALL_VS         R0305 (L02,L08) -> L03
  2811.        JE              L03,#01 [FALSE] L0024
  2812.        STORE           L08,#01
  2813.        JUMP            L0025
  2814. L0024: JE              L03,#02 [FALSE] L0025
  2815.        STORE           L08,#00
  2816. L0025: JE              L08,#01 [FALSE] L0026
  2817.        INC             L01
  2818.        ADD             L01,L09 -> -(SP)
  2819.        STOREW          #266e,(SP)+,L02
  2820.        JUMP            L0027
  2821. L0026: STORE           L01,L01
  2822. L0027: JUMP            L0020
  2823. L0028: JL              L01,G5c [FALSE] L0029
  2824.        JL              G5c,#64 [FALSE] L0029
  2825.        STORE           G41,#10
  2826.        STORE           G57,G5c
  2827.        LOADW           #266e,#00 -> G58
  2828.        RET             #ffff
  2829. L0029: ADD             L01,L09 -> -(SP)
  2830.        STOREW          #266e,#00,(SP)+
  2831.        STORE           G59,L00
  2832.        RTRUE           
  2833. L0030: STORE           L01,#00
  2834. L0031: JL              L01,G6f [FALSE] L0032
  2835.        STOREW          #28ce,L01,#00
  2836.        INC             L01
  2837.        JUMP            L0031
  2838. L0032: STORE           L06,#01
  2839.        STORE           L01,#00
  2840. L0033: JL              L01,G6f [FALSE] L0038
  2841.        LOADW           #28ce,L01 -> -(SP)
  2842.        JZ              (SP)+ [FALSE] L0037
  2843.        PUSH            L06
  2844.        INC             L06
  2845.        STOREW          #28ce,L01,(SP)+
  2846.        STORE           L08,#00
  2847.        ADD             L01,#01 -> L02
  2848. L0034: JL              L02,G6f [FALSE] L0036
  2849.        LOADW           #28ce,L02 -> -(SP)
  2850.        JZ              (SP)+ [FALSE] L0035
  2851.        LOADW           #284e,L02 -> -(SP)
  2852.        LOADW           #284e,L01 -> -(SP)
  2853.        CALL_VS         R0034 ((SP)+,(SP)+) -> -(SP)
  2854.        JE              (SP)+,#01 [FALSE] L0035
  2855.        STORE           L08,#01
  2856.        LOADW           #28ce,L01 -> -(SP)
  2857.        STOREW          #28ce,L02,(SP)+
  2858. L0035: INC             L02
  2859.        JUMP            L0034
  2860. L0036: JE              L08,#01 [FALSE] L0037
  2861.        SUB             #01,L06 -> -(SP)
  2862.        STOREW          #28ce,L01,(SP)+
  2863. L0037: INC             L01
  2864.        JUMP            L0033
  2865. L0038: DEC             L06
  2866.        STORE           G70,L06
  2867.        JG              L06,#01 [FALSE] L0044
  2868.        JZ              G5a [FALSE] L0044
  2869.        STORE           L02,#00
  2870.        STORE           L04,#00
  2871.        STORE           L01,#00
  2872. L0039: JL              L01,G6f [FALSE] L0042
  2873.        LOADW           #284e,L01 -> -(SP)
  2874.        CALL_VS         R0305 ((SP)+,#02) -> L03
  2875.        JE              L03,L02 [FALSE] L0040
  2876.        INC             L04
  2877. L0040: JG              L03,L02 [FALSE] L0041
  2878.        STORE           L02,L03
  2879.        STORE           L04,#01
  2880.        LOADW           #284e,L01 -> L05
  2881. L0041: INC             L01
  2882.        JUMP            L0039
  2883. L0042: JE              L04,#01 [FALSE] L0043
  2884.        RET             L05
  2885. L0043: RFALSE          
  2886. L0044: JE              L06,#01 [FALSE] L0045
  2887.        STORE           G4d,#01
  2888. L0045: CALL_1S         R0033 -> -(SP)
  2889.        RET_POPPED      
  2890.  
  2891. Routine R0031, 3 locals
  2892.  
  2893.        JE              G59,#04,#05 [FALSE] L0006
  2894.        STORE           L01,#01
  2895.        STORE           L02,#00
  2896. L0001: LOADW           #266e,#00 -> -(SP)
  2897.        JG              L01,(SP)+ [TRUE] L0005
  2898.        JE              G59,#04 [FALSE] L0002
  2899.        LOADW           #266e,L01 -> -(SP)
  2900.        JE              (SP)+,L00 [FALSE] L0003
  2901. L0002: JE              G59,#05 [FALSE] L0004
  2902.        LOADW           #266e,L01 -> -(SP)
  2903.        JIN             (SP)+,L00 [FALSE] L0004
  2904. L0003: INC             L02
  2905.        LOADW           #266e,L01 -> -(SP)
  2906.        STOREW          #266e,L02,(SP)+
  2907. L0004: INC             L01
  2908.        JUMP            L0001
  2909. L0005: STOREW          #266e,#00,L02
  2910. L0006: JE              G59,#02 [FALSE] L0014
  2911.        JE              G4e,#0f [FALSE] L0014
  2912.        STORE           L01,#01
  2913.        STORE           L02,#00
  2914. L0007: LOADW           #266e,#00 -> -(SP)
  2915.        JG              L01,(SP)+ [TRUE] L0009
  2916.        GET_PARENT      G34 -> -(SP)
  2917.        LOADW           #266e,L01 -> -(SP)
  2918.        GET_PARENT      (SP)+ -> -(SP)
  2919.        JE              (SP)+,(SP)+ [FALSE] L0008
  2920.        INC             L02
  2921. L0008: INC             L01
  2922.        JUMP            L0007
  2923. L0009: JE              G62,#02 [TRUE] L0010
  2924.        JG              L02,#00 [FALSE] L0014
  2925. L0010: STORE           L01,#01
  2926.        STORE           L02,#00
  2927. L0011: LOADW           #266e,#00 -> -(SP)
  2928.        JG              L01,(SP)+ [TRUE] L0013
  2929.        GET_PARENT      G34 -> -(SP)
  2930.        LOADW           #266e,L01 -> -(SP)
  2931.        GET_PARENT      (SP)+ -> -(SP)
  2932.        JE              (SP)+,(SP)+ [FALSE] L0012
  2933.        INC             L02
  2934.        LOADW           #266e,L01 -> -(SP)
  2935.        STOREW          #266e,L02,(SP)+
  2936. L0012: INC             L01
  2937.        JUMP            L0011
  2938. L0013: STOREW          #266e,#00,L02
  2939. L0014: LOADW           #266e,#00 -> L01
  2940.        JZ              L01 [FALSE] L0015
  2941.        RET             #11
  2942. L0015: RFALSE          
  2943.  
  2944. Routine R0032, 8 locals
  2945.  
  2946.        AND             G5b,#02 -> -(SP)
  2947.        JZ              (SP)+ [TRUE] L0001
  2948.        ADD             L05,#2d -> L05
  2949. L0001: AND             G5b,#04 -> -(SP)
  2950.        JZ              (SP)+ [TRUE] L0002
  2951.        ADD             L05,#2d -> L05
  2952. L0002: AND             G5b,#10 -> -(SP)
  2953.        JZ              (SP)+ [TRUE] L0003
  2954.        ADD             L05,#2d -> L05
  2955. L0003: AND             G5b,#20 -> -(SP)
  2956.        JZ              (SP)+ [TRUE] L0004
  2957.        ADD             L05,#2d -> L05
  2958. L0004: JZ              G5e [TRUE] L0005
  2959.        ADD             L05,#2d -> L05
  2960. L0005: STORE           L06,#1e
  2961.        STORE           L07,#14
  2962.        JE              G4e,#0f,#11 [FALSE] L0006
  2963.        STORE           L06,#14
  2964.        STORE           L07,#1e
  2965. L0006: STORE           L03,#00
  2966. L0007: JL              L03,G6f [FALSE] L0020
  2967.        LOADW           #284e,L03 -> L02
  2968.        GET_PARENT      L02 -> L00
  2969.        STORE           L01,#00
  2970.        AND             G5b,#02 -> -(SP)
  2971.        JZ              (SP)+ [TRUE] L0008
  2972.        JE              L00,G34 [FALSE] L0008
  2973.        ADD             L01,#2d -> L01
  2974. L0008: AND             G5b,#04 -> -(SP)
  2975.        JZ              (SP)+ [TRUE] L0009
  2976.        JE              L00,G35 [FALSE] L0009
  2977.        ADD             L01,#2d -> L01
  2978. L0009: AND             G5b,#10 -> -(SP)
  2979.        JZ              (SP)+ [TRUE] L0010
  2980.        TEST_ATTR       L02,#09 [FALSE] L0010
  2981.        ADD             L01,#2d -> L01
  2982. L0010: AND             G5b,#20 -> -(SP)
  2983.        JZ              (SP)+ [TRUE] L0011
  2984.        TEST_ATTR       L02,#09 [TRUE] L0011
  2985.        ADD             L01,#2d -> L01
  2986. L0011: JZ              G5e [TRUE] L0012
  2987.        JE              L00,G5e [FALSE] L0012
  2988.        ADD             L01,#2d -> L01
  2989. L0012: JL              L01,L05 [FALSE] L0013
  2990.        STOREW          #284e,L03,#ffff
  2991.        JUMP            L0019
  2992. L0013: STORE           L01,#00
  2993.        TEST_ATTR       L02,#03 [TRUE] L0014
  2994.        STORE           L01,#32
  2995. L0014: JE              L00,G34 [FALSE] L0015
  2996.        ADD             L01,L06 -> L01
  2997.        JUMP            L0017
  2998. L0015: JE              L00,G35 [FALSE] L0016
  2999.        ADD             L01,L07 -> L01
  3000.        JUMP            L0017
  3001. L0016: JZ              L01 [FALSE] L0017
  3002.        JE              L00,#06 [TRUE] L0017
  3003.        ADD             L01,#0a -> L01
  3004. L0017: CALL_VS         R0305 (L02,#02) -> -(SP)
  3005.        ADD             L01,(SP)+ -> L01
  3006.        MUL             #02,L01 -> L01
  3007.        CALL_2S         R0061 (L02) -> -(SP)
  3008.        LOADW           #2bc5,(SP)+ -> -(SP)
  3009.        AND             G5f,(SP)+ -> -(SP)
  3010.        JZ              (SP)+ [TRUE] L0018
  3011.        INC             L01
  3012. L0018: LOADW           #294e,L03 -> -(SP)
  3013.        ADD             (SP)+,L01 -> -(SP)
  3014.        STOREW          #294e,L03,(SP)+
  3015. L0019: INC             L03
  3016.        JUMP            L0007
  3017. L0020: STORE           L03,#00
  3018. L0021: JL              L03,G6f [FALSE] L0027
  3019. L0022: LOADW           #284e,L03 -> -(SP)
  3020.        JE              (SP)+,#ffff [FALSE] L0026
  3021.        SUB             G6f,#01 -> -(SP)
  3022.        JE              L03,(SP)+ [FALSE] L0023
  3023.        DEC             G6f
  3024.        JUMP            L0026
  3025. L0023: STORE           L04,L03
  3026. L0024: JL              L04,G6f [FALSE] L0025
  3027.        ADD             L04,#01 -> -(SP)
  3028.        LOADW           #284e,(SP)+ -> -(SP)
  3029.        STOREW          #284e,L04,(SP)+
  3030.        INC             L04
  3031.        JUMP            L0024
  3032. L0025: DEC             G6f
  3033.        JUMP            L0022
  3034. L0026: INC             L03
  3035.        JUMP            L0021
  3036. L0027: RTRUE           
  3037.  
  3038. Routine R0033, 4 locals
  3039.  
  3040.        STORE           L00,#00
  3041.        STORE           L02,#ffff
  3042.        STORE           L03,#00
  3043. L0001: JL              L03,G6f [FALSE] L0003
  3044.        LOADW           #284e,L03 -> -(SP)
  3045.        JL              (SP)+,#00 [TRUE] L0002
  3046.        LOADW           #294e,L03 -> L01
  3047.        JG              L01,L02 [FALSE] L0002
  3048.        STORE           L02,L01
  3049.        STORE           L00,L03
  3050. L0002: INC             L03
  3051.        JUMP            L0001
  3052. L0003: JL              L02,#00 [FALSE] L0004
  3053.        RET             #ffff
  3054. L0004: LOADW           #284e,L00 -> L03
  3055.        STOREW          #284e,L00,#ffff
  3056.        RET             L03
  3057.  
  3058. Routine R0034, 9 locals
  3059.  
  3060.        JE              L00,L01 [TRUE] RTRUE
  3061.        JZ              L00 [TRUE] RFALSE
  3062.        JZ              L01 [TRUE] RFALSE
  3063.        GET_PARENT      L00 -> -(SP)
  3064.        JE              (SP)+,#06 [TRUE] RFALSE
  3065.        GET_PARENT      L01 -> -(SP)
  3066.        JE              (SP)+,#06 [TRUE] RFALSE
  3067.        GET_PROP        L00,#30 -> -(SP)
  3068.        JZ              (SP)+ [FALSE] L0001
  3069.        GET_PROP        L01,#30 -> -(SP)
  3070.        JZ              (SP)+ [TRUE] L0002
  3071. L0001: GET_PROP        L01,#30 -> -(SP)
  3072.        GET_PROP        L00,#30 -> -(SP)
  3073.        JE              (SP)+,(SP)+ [FALSE] RFALSE
  3074.        STORE           G30,#1004
  3075.        STORE           G31,L00
  3076.        STORE           G32,L01
  3077.        STORE           L07,G73
  3078.        CALL_VS         R0084 (L00,#30) -> L06
  3079.        STORE           G73,L07
  3080.        JE              L06,#ffff [TRUE] RTRUE
  3081.        JE              L06,#fffe [TRUE] RFALSE
  3082. L0002: GET_PROP_ADDR   L00,#01 -> L02
  3083.        GET_PROP_ADDR   L00,#01 -> Gef
  3084.        JZ              Gef [TRUE] L0003
  3085.        GET_PROP_LEN    Gef -> Gef
  3086. L0003: PUSH            Gef
  3087.        DIV             (SP)+,#02 -> L04
  3088.        GET_PROP_ADDR   L01,#01 -> L03
  3089.        GET_PROP_ADDR   L01,#01 -> Gef
  3090.        JZ              Gef [TRUE] L0004
  3091.        GET_PROP_LEN    Gef -> Gef
  3092. L0004: PUSH            Gef
  3093.        DIV             (SP)+,#02 -> L05
  3094.        STORE           L06,#00
  3095. L0005: JL              L06,L04 [FALSE] L0009
  3096.        STORE           L08,#00
  3097.        STORE           L07,#00
  3098. L0006: JL              L07,L05 [FALSE] L0008
  3099.        LOADW           L03,L07 -> -(SP)
  3100.        LOADW           L02,L06 -> -(SP)
  3101.        JE              (SP)+,(SP)+ [FALSE] L0007
  3102.        STORE           L08,#01
  3103. L0007: INC             L07
  3104.        JUMP            L0006
  3105. L0008: JZ              L08 [TRUE] RFALSE
  3106.        INC             L06
  3107.        JUMP            L0005
  3108. L0009: STORE           L07,#00
  3109. L0010: JL              L07,L05 [FALSE] L0014
  3110.        STORE           L08,#00
  3111.        STORE           L06,#00
  3112. L0011: JL              L06,L04 [FALSE] L0013
  3113.        LOADW           L03,L07 -> -(SP)
  3114.        LOADW           L02,L06 -> -(SP)
  3115.        JE              (SP)+,(SP)+ [FALSE] L0012
  3116.        STORE           L08,#01
  3117. L0012: INC             L06
  3118.        JUMP            L0011
  3119. L0013: JZ              L08 [TRUE] RFALSE
  3120.        INC             L07
  3121.        JUMP            L0010
  3122. L0014: RTRUE           
  3123.  
  3124. Routine R0035, 4 locals
  3125.  
  3126.        JZ              L00 [FALSE] L0002
  3127.        STORE           L01,G75
  3128.        CALL_2S         R0008 (L01) -> -(SP)
  3129.        JZ              (SP)+ [FALSE] L0001
  3130.        CALL_2S         R0286 (L01) -> -(SP)
  3131.        JZ              (SP)+ [FALSE] L0001
  3132.        PRINT_ADDR      L01
  3133. L0001: INC             L00
  3134.        STORE           L03,#01
  3135. L0002: STORE           L02,L00
  3136. L0003: JL              L02,G44 [FALSE] L0011
  3137.        LOADW           #270e,L02 -> L01
  3138.        JE              L01,#ffff [FALSE] L0004
  3139.        JUMP            L0010
  3140. L0004: JZ              L03 [TRUE] L0005
  3141.        PRINT_CHAR      ' '
  3142. L0005: JZ              L01 [FALSE] L0006
  3143.        PRINT_PADDR     S032
  3144.        JUMP            L0009
  3145. L0006: JE              L01,#01 [FALSE] L0007
  3146.        PRINT_PADDR     S033
  3147.        JUMP            L0009
  3148. L0007: JL              L01,#2710 [TRUE] L0008
  3149.        SUB             L01,#2710 -> -(SP)
  3150.        CALL_2S         R0063 ((SP)+) -> -(SP)
  3151.        PRINT_ADDR      (SP)+
  3152.        JUMP            L0009
  3153. L0008: CALL_2N         R0102 (L01)
  3154. L0009: STORE           L03,#01
  3155. L0010: INC             L02
  3156.        JUMP            L0003
  3157. L0011: RTRUE           
  3158.  
  3159. Routine R0036, 3 locals
  3160.  
  3161.        STORE           G79,G78
  3162.        JZ              G69 [TRUE] L0001
  3163.        STORE           G6a,G69
  3164.        RET             #12
  3165. L0001: DEC             G73
  3166.        CALL_1S         R0055 -> L01
  3167.        STORE           L02,#04
  3168.        JE              L01,G64 [FALSE] L0002
  3169.        STORE           G66,G64
  3170.        STORE           G67,G65
  3171.        STORE           L02,#0e
  3172. L0002: STORE           L00,G34
  3173. L0003: GET_PARENT      L00 -> -(SP)
  3174.        JZ              (SP)+ [TRUE] L0004
  3175.        GET_PARENT      L00 -> L00
  3176.        JUMP            L0003
  3177. L0004: TEST_ATTR       L00,#18 [FALSE] L0005
  3178.        SUB             G73,#01 -> -(SP)
  3179.        CALL_VS         R0051 (L00,(SP)+) -> -(SP)
  3180.        JE              (SP)+,#01 [FALSE] L0005
  3181.        STORE           L02,#0d
  3182. L0005: JG              G41,L02 [FALSE] L0006
  3183.        RET             G41
  3184. L0006: RET             L02
  3185.  
  3186. Routine R0037, 3 locals
  3187.  
  3188.        LOADW           #266e,#00 -> L01
  3189.        JE              L01,#3f [FALSE] L0001
  3190.        STORE           G38,#01
  3191.        RTRUE           
  3192. L0001: STORE           L02,#01
  3193. L0002: JG              L02,L01 [TRUE] L0003
  3194.        LOADW           #266e,L02 -> -(SP)
  3195.        JE              L00,(SP)+ [TRUE] RTRUE
  3196.        INC             L02
  3197.        JUMP            L0002
  3198. L0003: INC             L01
  3199.        STOREW          #266e,L01,L00
  3200.        STOREW          #266e,#00,L01
  3201.        RTRUE           
  3202.  
  3203. Routine R0038, 5 locals
  3204.  
  3205.        LOADW           #266e,#00 -> L01
  3206.        STORE           L04,#00
  3207.        STORE           L02,#01
  3208. L0001: JG              L02,L01 [TRUE] L0005
  3209.        LOADW           #266e,L02 -> -(SP)
  3210.        JE              L00,(SP)+ [FALSE] L0004
  3211.        STORE           L03,L02
  3212. L0002: JG              L03,L01 [TRUE] L0003
  3213.        ADD             L03,#01 -> -(SP)
  3214.        LOADW           #266e,(SP)+ -> -(SP)
  3215.        STOREW          #266e,L03,(SP)+
  3216.        INC             L03
  3217.        JUMP            L0002
  3218. L0003: DEC             L01
  3219.        PUSH            L01
  3220.        STOREW          #266e,#00,(SP)+
  3221.        RET             L04
  3222. L0004: INC             L02
  3223.        JUMP            L0001
  3224. L0005: STORE           L04,#09
  3225.        RET             L04
  3226.  
  3227. Routine R0039, 4 locals
  3228.  
  3229. L0001: LOADW           #266e,#00 -> L01
  3230.        STORE           L02,#01
  3231. L0002: JG              L02,L01 [TRUE] L0004
  3232.        LOADW           #266e,L02 -> L03
  3233.        TEST_ATTR       L03,L00 [TRUE] L0003
  3234.        CALL_2N         R0038 (L03)
  3235.        JUMP            L0001
  3236. L0003: INC             L02
  3237.        JUMP            L0002
  3238. L0004: RTRUE           
  3239.  
  3240. Routine R0040, 1 local
  3241.  
  3242.        JL              G53,#31 [FALSE] L0001
  3243.        SUB             G53,#01 -> -(SP)
  3244.        TEST_ATTR       L00,(SP)+ [TRUE] RTRUE
  3245.        RFALSE          
  3246. L0001: STORE           G2a,L00
  3247.        CALL_1S         G53 -> -(SP)
  3248.        RET_POPPED      
  3249.  
  3250. Routine R0041, 5 locals
  3251.  
  3252.        MUL             L00,#02 -> -(SP)
  3253.        SUB             (SP)+,#01 -> L03
  3254.        MUL             L02,#02 -> -(SP)
  3255.        SUB             (SP)+,#01 -> L04
  3256.        PUSH            L04
  3257.        INC             L04
  3258.        LOADW           L01,(SP)+ -> -(SP)
  3259.        PUSH            L03
  3260.        INC             L03
  3261.        STOREW          #2a47,(SP)+,(SP)+
  3262.        LOADW           L01,L04 -> -(SP)
  3263.        STOREW          #2a47,L03,(SP)+
  3264.        RTRUE           
  3265.  
  3266. Routine R0042, 4 locals
  3267.  
  3268.        STORE           L03,#00
  3269.        JZ              G69 [TRUE] L0001
  3270.        STORE           G6b,#02
  3271.        CALL_1S         G69 -> -(SP)
  3272.        JZ              (SP)+ [FALSE] RTRUE
  3273. L0001: JE              G34,L00,L01 [FALSE] L0002
  3274.        CALL_2S         R0301 (G34) -> -(SP)
  3275.        JZ              (SP)+ [FALSE] RTRUE
  3276. L0002: JE              L02,#05 [FALSE] L0004
  3277.        JE              G50,#ffff [TRUE] L0004
  3278.        CALL_2S         R0043 (G50) -> -(SP)
  3279.        JE              (SP)+,#01 [FALSE] L0003
  3280.        CALL_VN         R0046 (G50,#00,L02)
  3281. L0003: JUMP            L0009
  3282. L0004: TEST_ATTR       L00,#14 [TRUE] L0005
  3283.        TEST_ATTR       L00,#04 [FALSE] L0006
  3284. L0005: CALL_VN         R0047 (L00,L00,L02)
  3285. L0006: CALL_VN         R0046 (L00,L01,L02)
  3286.        TEST_ATTR       L01,#14 [TRUE] L0007
  3287.        TEST_ATTR       L01,#04 [FALSE] L0008
  3288. L0007: CALL_VN         R0047 (L01,L01,L02)
  3289. L0008: CALL_VN         R0046 (L01,#00,L02)
  3290. L0009: JE              #13,L00,L01 [FALSE] L0011
  3291.        CALL_VN         R0047 (G34,G34,L02)
  3292.        GET_PARENT      G34 -> -(SP)
  3293.        PULL            Gef
  3294.        TEST_ATTR       Gef,#14 [TRUE] L0010
  3295.        TEST_ATTR       Gef,#04 [FALSE] L0011
  3296. L0010: GET_PARENT      G34 -> -(SP)
  3297.        GET_PARENT      G34 -> -(SP)
  3298.        CALL_VN         R0047 ((SP)+,(SP)+,L02)
  3299. L0011: RTRUE           
  3300.  
  3301. Routine R0043, 1 local
  3302.  
  3303.        TEST_ATTR       L00,#14 [TRUE] RTRUE
  3304.        TEST_ATTR       L00,#17 [TRUE] RTRUE
  3305.        TEST_ATTR       L00,#04 [FALSE] L0001
  3306.        TEST_ATTR       L00,#0e [TRUE] RTRUE
  3307. L0001: RFALSE          
  3308.  
  3309. Routine R0044, 1 local
  3310.  
  3311.        JE              G68,#00,#01 [TRUE] L0001
  3312.        CALL_2N         R0045 (L00)
  3313.        RTRUE           
  3314. L0001: STORE           G73,G72
  3315.        CALL_2N         R0050 (L00)
  3316.        STORE           G6e,#01
  3317.        RTRUE           
  3318.  
  3319. Routine R0045, 3 locals
  3320.  
  3321.        STORE           L01,G68
  3322.        STORE           L02,G31
  3323.        STORE           Gef,G68
  3324.        JE              Gef,#03 [FALSE] L0003
  3325.        GET_PROP        L00,#1a -> -(SP)
  3326.        JE              (SP)+,#00,#ffff [FALSE] L0001
  3327.        RTRUE           
  3328. L0001: JZ              G31 [FALSE] L0002
  3329.        CALL_VS         R0084 (L00,#1a) -> G31
  3330. L0002: JUMP            L0011
  3331. L0003: JE              Gef,#04 [FALSE] L0006
  3332.        GET_PROP        L00,#1b -> -(SP)
  3333.        JE              (SP)+,#00,#ffff [FALSE] L0004
  3334.        RTRUE           
  3335. L0004: JZ              G31 [FALSE] L0005
  3336.        CALL_VS         R0084 (L00,#1b) -> G31
  3337. L0005: JUMP            L0011
  3338. L0006: JE              Gef,#02 [FALSE] L0008
  3339.        GET_PROP_ADDR   L00,#2c -> -(SP)
  3340.        JZ              (SP)+ [FALSE] L0007
  3341.        RTRUE           
  3342. L0007: CALL_VN         R0082 (L00,#2c)
  3343.        JUMP            L0011
  3344. L0008: JE              Gef,#06 [FALSE] L0010
  3345.        JE              L00,G31 [FALSE] L0009
  3346.        STORE           G32,#01
  3347. L0009: JUMP            L0011
  3348. L0010: JE              Gef,#05 [FALSE] L0011
  3349.        CALL_2N         G31 (L00)
  3350.        STORE           G31,L02
  3351. L0011: STORE           G68,L01
  3352.        RTRUE           
  3353.  
  3354. Routine R0046, 3 locals
  3355.  
  3356.        JZ              L00 [TRUE] RTRUE
  3357.        JZ              G5a [FALSE] L0001
  3358.        JE              L00,G35 [FALSE] L0001
  3359.        JZ              G68 [FALSE] L0001
  3360.        JE              L02,#06 [TRUE] L0001
  3361.        CALL_2N         R0046 (#06)
  3362. L0001: GET_CHILD       L00 -> -(SP) [FALSE] L0002
  3363. L0002: PULL            L00
  3364.        JZ              L00 [TRUE] L0004
  3365. L0003: CALL_VN         R0047 (L00,L01,L02)
  3366.        GET_SIBLING     L00 -> L00 [TRUE] L0003
  3367. L0004: RTRUE           
  3368.  
  3369. Routine R0047, 6 locals
  3370.  
  3371.        JE              L02,#04 [FALSE] L0001
  3372.        JE              L00,G50 [FALSE] L0001
  3373.        JUMP            L0006
  3374. L0001: JE              G68,#00,#01 [TRUE] L0002
  3375.        CALL_2N         R0045 (L00)
  3376.        JUMP            L0006
  3377. L0002: JG              G72,G74 [FALSE] L0003
  3378.        STORE           L03,G2f
  3379.        STORE           G2f,#00
  3380.        CALL_VN         R0049 (L00,#00)
  3381.        STORE           G2f,L03
  3382.        JUMP            L0006
  3383. L0003: STORE           G73,G72
  3384.        CALL_1S         R0054 -> L03
  3385.        JE              L03,#01 [FALSE] L0004
  3386.        JE              G12,L00 [FALSE] L0004
  3387.        CALL_VN         R0049 (L00,#01)
  3388. L0004: JL              L03,#02 [TRUE] L0005
  3389.        JL              L03,#80 [FALSE] L0005
  3390.        LOADW           #2bdd,L03 -> -(SP)
  3391.        JE              (SP)+,L00 [FALSE] L0005
  3392.        CALL_VN         R0049 (L00,#01)
  3393. L0005: DEC             G73
  3394.        CALL_2N         R0050 (L00)
  3395. L0006: GET_CHILD       L00 -> -(SP) [FALSE] L0007
  3396. L0007: JZ              (SP)+ [TRUE] L0008
  3397.        JE              L00,L01 [TRUE] L0008
  3398.        CALL_2S         R0043 (L00) -> -(SP)
  3399.        JE              (SP)+,#01 [FALSE] L0008
  3400.        CALL_VN         R0046 (L00,L01,L02)
  3401. L0008: GET_PROP_ADDR   L00,#18 -> L04
  3402.        JZ              L04 [TRUE] L0012
  3403.        LOADW           L04,#00 -> -(SP)
  3404.        CALL_VS         R0108 ((SP)+,G03) -> -(SP)
  3405.        JG              (SP)+,#00 [FALSE] L0009
  3406.        ADD             #02,L02 -> G6c
  3407.        CALL_VN         R0084 (L00,#18)
  3408.        STORE           G6c,#00
  3409.        JUMP            L0012
  3410. L0009: GET_PROP_ADDR   L00,#18 -> Gef
  3411.        JZ              Gef [TRUE] L0010
  3412.        GET_PROP_LEN    Gef -> Gef
  3413. L0010: STORE           L05,Gef
  3414.        STORE           L03,#00
  3415. L0011: MUL             #02,L03 -> -(SP)
  3416.        JL              (SP)+,L05 [FALSE] L0012
  3417.        LOADW           L04,L03 -> -(SP)
  3418.        CALL_VN         R0047 ((SP)+,#00,L02)
  3419.        INC             L03
  3420.        JUMP            L0011
  3421. L0012: RTRUE           
  3422.  
  3423. Routine R0048, 1 local
  3424.  
  3425.        JL              G6c,#02 [TRUE] L0001
  3426.        SUB             G6c,#02 -> -(SP)
  3427.        CALL_VN         R0047 (L00,#00,(SP)+)
  3428. L0001: JE              G6c,#01 [FALSE] L0002
  3429.        CALL_2S         R0095 (L00) -> -(SP)
  3430.        JE              (SP)+,#01 [FALSE] L0002
  3431.        STORE           G6d,#01
  3432. L0002: RTRUE           
  3433.  
  3434. Routine R0049, 3 locals
  3435.  
  3436.        JZ              G53 [TRUE] L0001
  3437.        CALL_2S         R0040 (L00) -> -(SP)
  3438.        JZ              (SP)+ [FALSE] L0001
  3439.        RTRUE           
  3440. L0001: JL              L01,G71 [TRUE] RTRUE
  3441.        JG              L01,G71 [FALSE] L0002
  3442.        STORE           G71,L01
  3443.        STORE           G6f,#00
  3444.        JUMP            L0004
  3445. L0002: MUL             #02,G6f -> -(SP)
  3446.        JL              (SP)+,#80 [FALSE] RTRUE
  3447.        STORE           L02,#00
  3448. L0003: JL              L02,G6f [FALSE] L0004
  3449.        LOADW           #284e,L02 -> -(SP)
  3450.        JE              (SP)+,L00 [TRUE] RTRUE
  3451.        INC             L02
  3452.        JUMP            L0003
  3453. L0004: PUSH            G6f
  3454.        INC             G6f
  3455.        STOREW          #284e,(SP)+,L00
  3456.        RTRUE           
  3457.  
  3458. Routine R0050, 5 locals
  3459.  
  3460.        STORE           G63,#00
  3461.        JZ              G5a [TRUE] L0001
  3462.        JG              G73,G74 [FALSE] L0001
  3463.        STORE           G63,#70
  3464.        CALL_VN         R0049 (L00,#00)
  3465.        RFALSE          
  3466. L0001: GET_PROP        L00,#30 -> -(SP)
  3467.        JZ              (SP)+ [TRUE] L0008
  3468.        STORE           G30,#ffff
  3469.        STORE           L04,G73
  3470.        CALL_VS         R0084 (L00,#30) -> L02
  3471.        JG              L02,#00 [FALSE] L0007
  3472.        ADD             L04,L02 -> G73
  3473. L0002: JE              G30,#1005 [FALSE] L0003
  3474.        OR              G63,#04 -> G63
  3475. L0003: AND             G63,#04 -> -(SP)
  3476.        JZ              (SP)+ [TRUE] L0006
  3477.        JZ              G61 [FALSE] L0004
  3478.        STORE           L02,#00
  3479.        JUMP            L0006
  3480. L0004: JZ              G5a [FALSE] L0005
  3481.        STORE           G5a,#01
  3482.        STORE           G5b,#00
  3483.        STORE           G5c,#00
  3484. L0005: OR              G5b,#08 -> G5b
  3485.        JZ              G5c [FALSE] L0006
  3486.        STORE           G5c,#64
  3487. L0006: CALL_VN         R0049 (L00,L02)
  3488.        RFALSE          
  3489. L0007: JZ              L02 [FALSE] L0008
  3490.        JUMP            L0013
  3491. L0008: STORE           G30,#ffff
  3492.        CALL_1S         R0054 -> L03
  3493.        JE              L03,#01 [FALSE] L0009
  3494.        JE              G12,L00 [FALSE] L0009
  3495.        STORE           L02,#01
  3496.        JUMP            L0002
  3497. L0009: JL              L03,#02 [TRUE] L0010
  3498.        JL              L03,#80 [FALSE] L0010
  3499.        LOADW           #2bdd,L03 -> -(SP)
  3500.        JE              (SP)+,L00 [FALSE] L0010
  3501.        STORE           L02,#01
  3502.        JUMP            L0002
  3503. L0010: DEC             G73
  3504.        STORE           L04,G73
  3505.        CALL_2S         R0307 (L00) -> L01
  3506.        JL              L01,#00 [FALSE] L0011
  3507.        INC             G73
  3508. L0011: JG              L01,#00 [FALSE] L0012
  3509.        STORE           L02,L01
  3510.        JUMP            L0002
  3511. L0012: JZ              L01 [TRUE] L0013
  3512.        SUB             G73,#01 -> -(SP)
  3513.        CALL_VS         R0051 (L00,(SP)+) -> -(SP)
  3514.        JZ              (SP)+ [FALSE] L0015
  3515. L0013: JZ              G5a [TRUE] L0014
  3516.        STORE           L02,#00
  3517.        STORE           G30,#ffff
  3518.        JUMP            L0002
  3519. L0014: RFALSE          
  3520. L0015: JL              L01,#00 [FALSE] L0018
  3521.        STORE           L01,#01
  3522.        LOADB           L03,#06 -> -(SP)
  3523.        AND             (SP)+,#74 -> G63
  3524.        CALL_1S         R0055 -> L03
  3525. L0016: SUB             G73,#01 -> -(SP)
  3526.        CALL_VS         R0051 (L00,(SP)+) -> -(SP)
  3527.        JZ              (SP)+ [TRUE] L0018
  3528.        INC             L01
  3529.        JZ              L03 [TRUE] L0017
  3530.        LOADB           L03,#06 -> -(SP)
  3531.        AND             (SP)+,#74 -> -(SP)
  3532.        OR              G63,(SP)+ -> G63
  3533. L0017: CALL_1S         R0055 -> L03
  3534.        JUMP            L0016
  3535. L0018: STORE           L02,L01
  3536.        JUMP            L0002
  3537.  
  3538. Routine R0051, 6 locals
  3539.  
  3540.        JZ              L00 [TRUE] RFALSE
  3541.        STORE           L03,G73
  3542.        STORE           G73,L01
  3543.        CALL_1S         R0056 -> L02
  3544.        STORE           G73,L03
  3545.        JL              G33,#0100 [TRUE] L0002
  3546.        CALL_VS         G33 (L00,L02) -> L03
  3547.        JL              L03,#00 [TRUE] L0001
  3548.        RET             L03
  3549. L0001: SUB             #00,L03 -> L05
  3550.        JUMP            L0003
  3551. L0002: STORE           L05,G33
  3552. L0003: CALL_VS         R0319 (L00,L05) -> L03
  3553.        CALL_VS         R0320 (L00,L05) -> -(SP)
  3554.        DIV             (SP)+,#02 -> -(SP)
  3555.        SUB             (SP)+,#01 -> L04
  3556.        STORE           L05,#00
  3557. L0004: JG              L05,L04 [TRUE] L0005
  3558.        LOADW           L03,L05 -> -(SP)
  3559.        JE              L02,(SP)+ [TRUE] RTRUE
  3560.        INC             L05
  3561.        JUMP            L0004
  3562. L0005: RFALSE          
  3563.  
  3564. Routine R0052, 6 locals
  3565.  
  3566.        CALL_VS         R0319 (L01,L02) -> L03
  3567.        CALL_VS         R0320 (L01,L02) -> -(SP)
  3568.        DIV             (SP)+,#02 -> -(SP)
  3569.        SUB             (SP)+,#01 -> L04
  3570.        STORE           L05,#00
  3571. L0001: JG              L05,L04 [TRUE] L0002
  3572.        LOADW           L03,L05 -> -(SP)
  3573.        JE              L00,(SP)+ [TRUE] RTRUE
  3574.        INC             L05
  3575.        JUMP            L0001
  3576. L0002: RFALSE          
  3577.  
  3578. Routine R0053, 3 locals
  3579.  
  3580.        STORE           L02,#00
  3581. L0001: JL              L02,L01 [FALSE] L0002
  3582.        LOADB           L00,L02 -> -(SP)
  3583.        ADD             #02,L02 -> -(SP)
  3584.        STOREB          #2a88,(SP)+,(SP)+
  3585.        INC             L02
  3586.        JUMP            L0001
  3587. L0002: STOREB          #2a88,#01,L01
  3588.        TOKENISE        #2a88,#2b01
  3589.        LOADW           #2b01,#01 -> -(SP)
  3590.        RET_POPPED      
  3591.  
  3592. Routine R0054, 3 locals
  3593.  
  3594.        CALL_1S         R0055 -> L00
  3595.        JZ              L00 [TRUE] RFALSE
  3596.        JE              L00,"me","myself","self" [FALSE] L0001
  3597.        RTRUE           
  3598. L0001: LOADW           #2bdd,#00 -> L02
  3599.        STORE           L01,#01
  3600.        JUMP            L0003
  3601. L0002: ADD             L01,#03 -> L01
  3602. L0003: JG              L01,L02 [TRUE] L0005
  3603.        LOADW           #2bdd,L01 -> -(SP)
  3604.        JE              L00,(SP)+ [FALSE] L0004
  3605.        ADD             L01,#02 -> -(SP)
  3606.        RET_POPPED      
  3607. L0004: JUMP            L0002
  3608. L0005: LOADB           L00,#06 -> -(SP)
  3609.        AND             (SP)+,#80 -> -(SP)
  3610.        JZ              (SP)+ [TRUE] RFALSE
  3611.        RET             L00
  3612.  
  3613. Routine R0055, 3 locals
  3614.  
  3615.        LOADB           #2a47,#01 -> -(SP)
  3616.        JG              G73,(SP)+ [FALSE] L0001
  3617.        INC             G73
  3618.        RFALSE          
  3619. L0001: MUL             G73,#02 -> -(SP)
  3620.        SUB             (SP)+,#01 -> L00
  3621.        INC             G73
  3622.        LOADW           #2a47,L00 -> L01
  3623.        JZ              L01 [FALSE] L0003
  3624.        MUL             G73,#04 -> -(SP)
  3625.        SUB             (SP)+,#03 -> L02
  3626.        LOADB           #2a47,L02 -> -(SP)
  3627.        LOADB           #29ce,(SP)+ -> L00
  3628.        JE              L00,#2c [FALSE] L0002
  3629.        STORE           L01,"comma,"
  3630. L0002: JE              L00,#2e [FALSE] L0003
  3631.        STORE           L01,"then"
  3632. L0003: RET             L01
  3633.  
  3634. Routine R0056, 0 locals
  3635.  
  3636.        LOADB           #2a47,#01 -> -(SP)
  3637.        JG              G73,(SP)+ [FALSE] L0001
  3638.        INC             G73
  3639.        RET             #ffff
  3640. L0001: CALL_1S         R0055 -> -(SP)
  3641.        RET_POPPED      
  3642.  
  3643. Routine R0057, 1 local
  3644.  
  3645.        MUL             L00,#04 -> -(SP)
  3646.        ADD             (SP)+,#01 -> -(SP)
  3647.        LOADB           #2a47,(SP)+ -> -(SP)
  3648.        ADD             #29ce,(SP)+ -> -(SP)
  3649.        RET_POPPED      
  3650.  
  3651. Routine R0058, 1 local
  3652.  
  3653.        MUL             L00,#04 -> -(SP)
  3654.        LOADB           #2a47,(SP)+ -> -(SP)
  3655.        RET_POPPED      
  3656.  
  3657. Routine R0059, 10 locals
  3658.  
  3659.        STORE           L01,G73
  3660.        STORE           G73,L00
  3661.        CALL_1S         R0055 -> L02
  3662.        STORE           G73,L01
  3663.        CALL_2S         R0106 (L02) -> L02
  3664.        JL              L02,#01 [TRUE] L0001
  3665.        RET             L02
  3666. L0001: MUL             L00,#04 -> -(SP)
  3667.        ADD             (SP)+,#01 -> L01
  3668.        LOADB           #2a47,L01 -> L02
  3669.        ADD             L02,#29ce -> L04
  3670.        SUB             L01,#01 -> -(SP)
  3671.        LOADB           #2a47,(SP)+ -> L05
  3672.        CALL_VS         R0304 (L04,L05) -> L07
  3673.        JZ              L07 [TRUE] L0002
  3674.        RET             L07
  3675. L0002: JL              L05,#04 [TRUE] L0003
  3676.        STORE           L06,#03e8
  3677. L0003: JE              L05,#03 [FALSE] L0004
  3678.        STORE           L06,#64
  3679. L0004: JE              L05,#02 [FALSE] L0005
  3680.        STORE           L06,#0a
  3681. L0005: JE              L05,#01 [FALSE] L0006
  3682.        STORE           L06,#01
  3683. L0006: STORE           L07,#00
  3684.        STORE           L03,#00
  3685.        SUB             L05,#01 -> L05
  3686.        STORE           L03,#00
  3687. L0007: JG              L03,L05 [TRUE] L0019
  3688.        LOADB           L04,L03 -> L09
  3689.        JE              L09,#30 [FALSE] L0008
  3690.        STORE           L08,#00
  3691.        JUMP            L0018
  3692. L0008: JE              L09,#31 [FALSE] L0009
  3693.        STORE           L08,#01
  3694.        JUMP            L0018
  3695. L0009: JE              L09,#32 [FALSE] L0010
  3696.        STORE           L08,#02
  3697.        JUMP            L0018
  3698. L0010: JE              L09,#33 [FALSE] L0011
  3699.        STORE           L08,#03
  3700.        JUMP            L0018
  3701. L0011: JE              L09,#34 [FALSE] L0012
  3702.        STORE           L08,#04
  3703.        JUMP            L0018
  3704. L0012: JE              L09,#35 [FALSE] L0013
  3705.        STORE           L08,#05
  3706.        JUMP            L0018
  3707. L0013: JE              L09,#36 [FALSE] L0014
  3708.        STORE           L08,#06
  3709.        JUMP            L0018
  3710. L0014: JE              L09,#37 [FALSE] L0015
  3711.        STORE           L08,#07
  3712.        JUMP            L0018
  3713. L0015: JE              L09,#38 [FALSE] L0016
  3714.        STORE           L08,#08
  3715.        JUMP            L0018
  3716. L0016: JE              L09,#39 [FALSE] L0017
  3717.        STORE           L08,#09
  3718.        JUMP            L0018
  3719. L0017: RET             #fc18
  3720. L0018: MUL             L06,L08 -> -(SP)
  3721.        ADD             L07,(SP)+ -> L07
  3722.        DIV             L06,#0a -> L06
  3723.        INC             L03
  3724.        JUMP            L0007
  3725. L0019: JG              L05,#03 [FALSE] L0020
  3726.        STORE           L07,#2710
  3727. L0020: RET             L07
  3728.  
  3729. Routine R0060, 1 local
  3730.  
  3731.        TEST_ATTR       L00,#1c [FALSE] RTRUE
  3732.        RFALSE          
  3733.  
  3734. Routine R0061, 3 locals
  3735.  
  3736.        TEST_ATTR       L00,#00 [TRUE] L0001
  3737.        STORE           L01,#06
  3738. L0001: TEST_ATTR       L00,#1b [FALSE] L0002
  3739.        STORE           L02,#1b
  3740. L0002: TEST_ATTR       L00,#1c [FALSE] L0003
  3741.        STORE           L02,#1c
  3742. L0003: TEST_ATTR       L00,#1d [FALSE] L0004
  3743.        STORE           L02,#1d
  3744. L0004: JZ              L02 [FALSE] L0006
  3745.        JZ              L01 [FALSE] L0005
  3746.        STORE           L02,#1b
  3747.        JUMP            L0006
  3748. L0005: STORE           L02,#1d
  3749. L0006: JE              L02,#1c [FALSE] L0007
  3750.        ADD             L01,#01 -> L01
  3751. L0007: JE              L02,#1d [FALSE] L0008
  3752.        ADD             L01,#02 -> L01
  3753. L0008: TEST_ATTR       L00,#1e [FALSE] L0009
  3754.        ADD             L01,#03 -> L01
  3755. L0009: RET             L01
  3756.  
  3757. Routine R0062, 1 local
  3758.  
  3759.        LOADW           #00,#04 -> -(SP)
  3760.        ADD             (SP)+,#07 -> -(SP)
  3761.        SUB             L00,(SP)+ -> -(SP)
  3762.        DIV             (SP)+,#09 -> -(SP)
  3763.        RET_POPPED      
  3764.  
  3765. Routine R0063, 1 local
  3766.  
  3767.        MUL             #09,L00 -> -(SP)
  3768.        LOADW           #00,#04 -> -(SP)
  3769.        ADD             (SP)+,#07 -> -(SP)
  3770.        ADD             (SP)+,(SP)+ -> -(SP)
  3771.        RET_POPPED      
  3772.  
  3773. Routine R0064, 4 locals
  3774.  
  3775.        LOADB           L00,#00 -> L03
  3776.        STORE           L02,#01
  3777. L0001: JG              L02,L03 [TRUE] L0002
  3778.        LOADB           L01,L02 -> -(SP)
  3779.        STOREB          L00,L02,(SP)+
  3780.        INC             L02
  3781.        JUMP            L0001
  3782. L0002: RTRUE           
  3783.  
  3784. Routine R0065, 3 locals
  3785.  
  3786.        LOADB           #29ce,#01 -> L02
  3787.        LOADB           #29ce,#00 -> -(SP)
  3788.        JG              L02,(SP)+ [FALSE] L0001
  3789.        LOADB           #29ce,#00 -> L02
  3790. L0001: ADD             L02,#02 -> L02
  3791. L0002: JG              L02,L00 [FALSE] L0003
  3792.        SUB             L02,#01 -> -(SP)
  3793.        LOADB           #29ce,(SP)+ -> -(SP)
  3794.        STOREB          #29ce,L02,(SP)+
  3795.        DEC             L02
  3796.        JUMP            L0002
  3797. L0003: STOREB          #29ce,L00,L01
  3798.        LOADB           #29ce,#00 -> -(SP)
  3799.        LOADB           #29ce,#01 -> -(SP)
  3800.        JL              (SP)+,(SP)+ [FALSE] L0004
  3801.        STORE           Gef,#29ce
  3802.        STORE           Gee,#01
  3803.        LOADB           Gef,Gee -> Ged
  3804.        INC             Ged
  3805.        STOREB          Gef,Gee,Ged
  3806. L0004: RTRUE           
  3807.  
  3808. Routine R0066, 4 locals
  3809.     Action routine for:
  3810.         "nouns"
  3811.  
  3812.        CALL_VN         R0236 (#00,#01)
  3813.        LOADW           #2bdd,#00 -> -(SP)
  3814.        DIV             (SP)+,#03 -> L02
  3815.        JE              G12,#14 [TRUE] L0001
  3816.        INC             L02
  3817. L0001: JZ              L02 [FALSE] L0002
  3818.        CALL_VS         R0236 (#00,#04) -> -(SP)
  3819.        RET_POPPED      
  3820. L0002: STORE           L00,#01
  3821.        STORE           L03,#00
  3822.        JUMP            L0004
  3823. L0003: ADD             L00,#03 -> L00
  3824. L0004: LOADW           #2bdd,#00 -> -(SP)
  3825.        JG              L00,(SP)+ [TRUE] L0009
  3826.        PRINT           """
  3827.        LOADW           #2bdd,L00 -> -(SP)
  3828.        PRINT_ADDR      (SP)+
  3829.        PRINT           "" "
  3830.        ADD             L00,#02 -> -(SP)
  3831.        LOADW           #2bdd,(SP)+ -> L01
  3832.        JE              L01,#ffff [FALSE] L0005
  3833.        CALL_VN         R0236 (#00,#03)
  3834.        JUMP            L0006
  3835. L0005: CALL_VN         R0236 (#00,#02)
  3836.        CALL_2N         R0102 (L01)
  3837. L0006: INC             L03
  3838.        SUB             L02,#01 -> -(SP)
  3839.        JL              L03,(SP)+ [FALSE] L0007
  3840.        PRINT           ", "
  3841. L0007: SUB             L02,#01 -> -(SP)
  3842.        JE              L03,(SP)+ [FALSE] L0008
  3843.        PRINT_PADDR     S040
  3844. L0008: JUMP            L0003
  3845. L0009: JE              G12,#14 [TRUE] L0010
  3846.        PRINT           """
  3847.        PRINT_ADDR      "me"
  3848.        PRINT           "" "
  3849.        CALL_VN         R0236 (#00,#02)
  3850.        STORE           L02,G12
  3851.        STORE           G12,#14
  3852.        CALL_2N         R0102 (L02)
  3853.        STORE           G12,L02
  3854. L0010: PRINT_RET       "."
  3855.  
  3856. Routine R0067, 3 locals
  3857.  
  3858.        STORE           L02,#01
  3859.        JUMP            L0002
  3860. L0001: ADD             L02,#03 -> L02
  3861. L0002: LOADW           #2bdd,#00 -> -(SP)
  3862.        JG              L02,(SP)+ [TRUE] L0004
  3863.        LOADW           #2bdd,L02 -> -(SP)
  3864.        JE              (SP)+,L00 [FALSE] L0003
  3865.        ADD             L02,#02 -> -(SP)
  3866.        STOREW          #2bdd,(SP)+,L01
  3867.        RTRUE           
  3868. L0003: JUMP            L0001
  3869. L0004: CALL_2N         R0111 (#0e)
  3870.        RTRUE           
  3871.  
  3872. Routine R0068, 2 locals
  3873.  
  3874.        STORE           L01,#01
  3875.        JUMP            L0002
  3876. L0001: ADD             L01,#03 -> L01
  3877. L0002: LOADW           #2bdd,#00 -> -(SP)
  3878.        JG              L01,(SP)+ [TRUE] L0004
  3879.        LOADW           #2bdd,L01 -> -(SP)
  3880.        JE              (SP)+,L00 [FALSE] L0003
  3881.        ADD             L01,#02 -> -(SP)
  3882.        LOADW           #2bdd,(SP)+ -> -(SP)
  3883.        RET_POPPED      
  3884. L0003: JUMP            L0001
  3885. L0004: RFALSE          
  3886.  
  3887. Routine R0069, 1 local
  3888.  
  3889.        CALL_2N         R0071 (L00)
  3890.        RTRUE           
  3891.  
  3892. Routine R0070, 0 locals
  3893.  
  3894.        JE              G7d,G80 [TRUE] L0001
  3895.        CALL_VN         R0067 ("it",G7d)
  3896. L0001: JE              G7e,G81 [TRUE] L0002
  3897.        CALL_VN         R0067 ("him",G7e)
  3898. L0002: JE              G7f,G82 [TRUE] L0003
  3899.        CALL_VN         R0067 ("her",G7f)
  3900. L0003: STORE           G80,G7d
  3901.        STORE           G81,G7e
  3902.        STORE           G82,G7f
  3903.        RTRUE           
  3904.  
  3905. Routine R0071, 3 locals
  3906.  
  3907.        JE              L00,G12 [FALSE] L0001
  3908.        RTRUE           
  3909. L0001: CALL_1N         R0070
  3910.        CALL_2S         R0061 (L00) -> -(SP)
  3911.        LOADW           #2bc5,(SP)+ -> L02
  3912.        STORE           L01,#01
  3913.        JUMP            L0003
  3914. L0002: ADD             L01,#03 -> L01
  3915. L0003: LOADW           #2bdd,#00 -> -(SP)
  3916.        JG              L01,(SP)+ [TRUE] L0005
  3917.        ADD             L01,#01 -> -(SP)
  3918.        LOADW           #2bdd,(SP)+ -> -(SP)
  3919.        AND             L02,(SP)+ -> -(SP)
  3920.        JZ              (SP)+ [TRUE] L0004
  3921.        ADD             L01,#02 -> -(SP)
  3922.        STOREW          #2bdd,(SP)+,L00
  3923. L0004: JUMP            L0002
  3924. L0005: CALL_2S         R0068 ("it") -> G7d
  3925.        STORE           G80,G7d
  3926.        CALL_2S         R0068 ("him") -> G7e
  3927.        STORE           G81,G7e
  3928.        CALL_2S         R0068 ("her") -> G7f
  3929.        STORE           G82,G7f
  3930.        RTRUE           
  3931.  
  3932. Routine R0072, 4 locals
  3933.  
  3934.        LOADW           #32,#00 -> G04
  3935.        CALL_VN         R0085 (#26,S028)
  3936.        STORE           G15,#13
  3937.        STORE           G12,#14
  3938.        SUB             #0161,#ff -> G03
  3939.        PUT_PROP        "(self object)",#2d,#0064
  3940.        CALL_1S         R0238 -> L01
  3941.        STORE           G0e,G0d
  3942.        INSERT_OBJ      G12,G00
  3943. L0001: GET_PARENT      G00 -> -(SP)
  3944.        JZ              (SP)+ [TRUE] L0002
  3945.        GET_PARENT      G00 -> G00
  3946.        JUMP            L0001
  3947. L0002: GET_CHILD       G12 -> -(SP) [FALSE] L0003
  3948. L0003: PULL            L00
  3949.        JZ              L00 [TRUE] L0005
  3950. L0004: SET_ATTR        L00,#0c
  3951.        CLEAR_ATTR      L00,#03
  3952.        GET_SIBLING     L00 -> L00 [TRUE] L0004
  3953. L0005: JE              L01,#02 [TRUE] L0006
  3954.        CALL_1N         R0109
  3955. L0006: GET_PARENT      G12 -> -(SP)
  3956.        CALL_2S         R0094 ((SP)+) -> G14
  3957.        JZ              G14 [FALSE] L0007
  3958.        STORE           G15,G00
  3959.        STORE           G00,#13
  3960. L0007: CALL_2N         R0075 (#1f)
  3961.        STORE           L00,#01
  3962. L0008: JG              L00,#64 [TRUE] L0009
  3963.        RANDOM          L00 -> L01
  3964.        INC             L00
  3965.        JUMP            L0008
  3966. L0009: STORE           G80,G7d
  3967.        STORE           G81,G7e
  3968.        STORE           G82,G7f
  3969. L0010: JZ              G13 [FALSE] L0045
  3970.        JE              G0d,G0e [TRUE] L0012
  3971.        JE              G0f,#01 [FALSE] L0011
  3972.        CALL_1N         R0092
  3973. L0011: STORE           G0e,G0d
  3974. L0012: CALL_1N         R0070
  3975.        CALL_2S         R0068 ("it") -> G80
  3976.        CALL_2S         R0068 ("him") -> G81
  3977.        CALL_2S         R0068 ("her") -> G82
  3978. L0013: STOREW          #264e,#00,#00
  3979.        STOREW          #264e,#01,#00
  3980.        STOREW          #264e,#02,#00
  3981.        STOREW          #264e,#03,#00
  3982.        STORE           G36,#00
  3983.        CALL_VN         R0318 (#15,#48,#264e)
  3984.        LOADW           #264e,#00 -> G27
  3985.        JE              G27,#5b,#5c [FALSE] L0015
  3986.        LOADW           #264e,#02 -> L00
  3987.        LOADW           #264e,#03 -> -(SP)
  3988.        STOREW          #264e,#02,(SP)+
  3989.        STOREW          #264e,#03,L00
  3990.        JE              G27,#5b [FALSE] L0014
  3991.        STORE           G27,#15
  3992.        JUMP            L0015
  3993. L0014: STORE           G27,#16
  3994. L0015: JE              G27,#51 [FALSE] L0016
  3995.        LOADW           #264e,#02 -> -(SP)
  3996.        JE              (SP)+,G12 [FALSE] L0016
  3997.        JE              G34,G12 [TRUE] L0016
  3998.        STOREW          #264e,#02,G34
  3999.        STORE           G34,G12
  4000.        STORE           G27,#53
  4001. L0016: JE              G27,#5a [FALSE] L0017
  4002.        LOADW           #264e,#02 -> -(SP)
  4003.        JE              (SP)+,G12 [TRUE] L0017
  4004.        JE              G34,G12 [FALSE] L0017
  4005.        LOADW           #264e,#02 -> G34
  4006.        LOADW           #264e,#03 -> -(SP)
  4007.        STOREW          #264e,#02,(SP)+
  4008.        STOREW          #264e,#03,G12
  4009.        STORE           G27,#15
  4010. L0017: JE              G27,#53,#51,#52 [FALSE] L0018
  4011.        STORE           G39,G48
  4012. L0018: STORE           G37,#00
  4013.        STORE           G3f,G3e
  4014.        STORE           G3e,#00
  4015. L0019: STORE           G28,#00
  4016.        STORE           G29,#00
  4017.        LOADW           #264e,#01 -> L00
  4018.        JL              L00,#01 [TRUE] L0020
  4019.        LOADW           #264e,#02 -> G28
  4020. L0020: JL              L00,#02 [TRUE] L0021
  4021.        LOADW           #264e,#03 -> G29
  4022. L0021: JE              G28,#01 [FALSE] L0022
  4023.        STORE           G2a,G48
  4024.        JUMP            L0023
  4025. L0022: STORE           G2a,G28
  4026. L0023: JE              G29,#01 [FALSE] L0026
  4027.        JE              G28,#01 [FALSE] L0024
  4028.        STORE           G2b,G49
  4029.        JUMP            L0025
  4030. L0024: STORE           G2b,G48
  4031. L0025: JUMP            L0027
  4032. L0026: STORE           G2b,G29
  4033. L0027: JE              G34,G12 [TRUE] L0030
  4034.        CALL_VS         R0084 (G12,#1d) -> L01
  4035.        JZ              L01 [FALSE] L0029
  4036.        CALL_VS         R0084 (G34,#1d) -> L01
  4037.        JZ              L01 [FALSE] L0029
  4038.        JE              G27,#1009 [FALSE] L0028
  4039.        STOREW          #264e,#03,G34
  4040.        STORE           G34,G12
  4041.        STORE           G27,#52
  4042.        JUMP            L0019
  4043. L0028: CALL_VS         R0080 (G34,#1003) -> -(SP)
  4044.        JZ              (SP)+ [FALSE] L0029
  4045.        CALL_VN         R0236 (#1003,#01,G34)
  4046. L0029: JUMP            L0041
  4047. L0030: JZ              L00 [TRUE] L0032
  4048.        JE              L00,#01 [FALSE] L0031
  4049.        JZ              G28 [FALSE] L0032
  4050. L0031: JE              L00,#02 [FALSE] L0033
  4051.        JZ              G28 [TRUE] L0033
  4052.        JZ              G29 [TRUE] L0033
  4053. L0032: CALL_VN2        R0318 (Geb,#004b,G27,G2a,G2b,#00)
  4054.        JUMP            L0041
  4055. L0033: STORE           G37,#01
  4056.        LOADW           #266e,#00 -> L01
  4057.        JZ              L01 [FALSE] L0034
  4058.        CALL_VN         R0236 (#1007,#02)
  4059.        JUMP            L0013
  4060. L0034: JZ              G38 [TRUE] L0035
  4061.        STORE           G38,#00
  4062.        CALL_VN         R0236 (#1007,#01)
  4063. L0035: STORE           L00,G00
  4064.        STORE           L02,#01
  4065. L0036: JG              L02,L01 [TRUE] L0041
  4066.        JZ              G13 [TRUE] L0037
  4067.        JUMP            L0041
  4068. L0037: JE              G00,L00 [TRUE] L0038
  4069.        CALL_VN         R0236 (#1007,#33)
  4070.        JUMP            L0041
  4071. L0038: LOADW           #266e,L02 -> L03
  4072.        CALL_2N         R0071 (L03)
  4073.        CALL_2N         R0104 (L03)
  4074.        PRINT           ": "
  4075.        JZ              G28 [FALSE] L0039
  4076.        STORE           G28,L03
  4077.        CALL_VN2        R0318 (Geb,#004b,G27,L03,G2b,#00)
  4078.        STORE           G28,#00
  4079.        JUMP            L0040
  4080. L0039: STORE           G29,L03
  4081.        CALL_VN2        R0318 (Geb,#004b,G27,G2a,L03,#00)
  4082.        STORE           G29,#00
  4083. L0040: INC             L02
  4084.        JUMP            L0036
  4085. L0041: JE              G3e,#01 [FALSE] L0042
  4086.        JUMP            L0010
  4087. L0042: JZ              G36 [TRUE] L0043
  4088.        JUMP            L0010
  4089. L0043: JZ              G13 [FALSE] L0044
  4090.        CALL_VN         R0318 (Geb,#004a)
  4091. L0044: JUMP            L0010
  4092. L0045: JE              G13,#02 [TRUE] L0046
  4093.        CALL_1N         R0295
  4094. L0046: JZ              G13 [FALSE] L0047
  4095.        JUMP            L0013
  4096. L0047: PRINT           "
  4097.  
  4098.     "
  4099.        SET_TEXT_STYLE  BOLDFACE
  4100.        PRINT           "***"
  4101.        JE              G13,#01 [FALSE] L0048
  4102.        CALL_VN         R0236 (#1007,#03)
  4103. L0048: JE              G13,#02 [FALSE] L0049
  4104.        CALL_VN         R0236 (#1007,#04)
  4105. L0049: JG              G13,#02 [FALSE] L0050
  4106.        PRINT           " "
  4107.        CALL_1N         R0291
  4108.        PRINT           " "
  4109. L0050: PRINT           "***"
  4110.        SET_TEXT_STYLE  ROMAN
  4111.        PRINT           "
  4112.  
  4113.  
  4114. "
  4115.        CALL_1N         R0139
  4116.        CALL_1N         R0090
  4117. L0051: CALL_VN         R0236 (#1007,#05)
  4118. L0052: PRINT           "> "
  4119.        STORE           Gef,#00
  4120.        STORE           Gec,#29ce
  4121.        STOREB          Gec,#01,#00
  4122.        CALL_1N         R0239
  4123.        READ            Gec,#2a47 -> Gef
  4124.        LOADW           #2a47,#01 -> L00
  4125.        JE              L00,"q","quit" [FALSE] L0053
  4126.        QUIT            
  4127. L0053: JE              L00,"restart" [FALSE] L0054
  4128.        RESTART         
  4129. L0054: JE              L00,"restore" [FALSE] L0055
  4130.        CALL_1N         R0130
  4131.        JUMP            L0051
  4132. L0055: JE              L00,"fullscore","full" [FALSE] L0056
  4133.        JZ              #0001 [FALSE] L0056
  4134.        NEW_LINE        
  4135.        CALL_1N         R0142
  4136.        JUMP            L0051
  4137. L0056: JE              G13,#02 [FALSE] L0057
  4138.        JE              L00,"amusing" [FALSE] L0057
  4139.        JZ              #0001 [FALSE] L0057
  4140.        NEW_LINE        
  4141.        CALL_1N         R0290
  4142.        JUMP            L0051
  4143. L0057: JE              L00,"undo","undo","undo" [FALSE] L0062
  4144.        JZ              G05 [FALSE] L0058
  4145.        CALL_VN         R0236 (#1007,#06)
  4146.        JUMP            L0051
  4147. L0058: JE              G05,#01 [FALSE] L0059
  4148.        JUMP            L0060
  4149. L0059: RESTORE_UNDO    -> L00
  4150.        JZ              L00 [FALSE] L0061
  4151. L0060: CALL_VN         R0236 (#1007,#07)
  4152. L0061: JUMP            L0051
  4153. L0062: CALL_VN         R0236 (#1007,#08)
  4154.        JUMP            L0052
  4155.  
  4156. Routine R0073, 2 locals
  4157.  
  4158.        INC             G08
  4159.        JE              G09,#ffff [TRUE] L0003
  4160.        JL              G0a,#00 [TRUE] L0001
  4161.        ADD             G09,G0a -> G09
  4162.        JUMP            L0002
  4163. L0001: DEC             G0b
  4164.        JZ              G0b [FALSE] L0002
  4165.        INC             G09
  4166.        SUB             #00,G0a -> G0b
  4167. L0002: MOD             G09,#05a0 -> G09
  4168. L0003: STORE           L00,#00
  4169. L0004: JL              L00,G0c [FALSE] L0009
  4170.        JZ              G13 [TRUE] L0005
  4171.        RTRUE           
  4172. L0005: LOADW           #260e,L00 -> L01
  4173.        JZ              L01 [TRUE] L0008
  4174.        AND             L01,#8000 -> -(SP)
  4175.        JZ              (SP)+ [TRUE] L0006
  4176.        AND             L01,#7fff -> -(SP)
  4177.        CALL_VN         R0084 ((SP)+,#2b)
  4178.        JUMP            L0008
  4179. L0006: GET_PROP        L01,#28 -> -(SP)
  4180.        JZ              (SP)+ [FALSE] L0007
  4181.        CALL_2N         R0087 (L01)
  4182.        CALL_VN         R0084 (L01,#2a)
  4183.        JUMP            L0008
  4184. L0007: GET_PROP        L01,#28 -> -(SP)
  4185.        SUB             (SP)+,#01 -> -(SP)
  4186.        PUT_PROP        L01,#28,(SP)+
  4187. L0008: INC             L00
  4188.        JUMP            L0004
  4189. L0009: JZ              G13 [TRUE] L0010
  4190.        RTRUE           
  4191. L0010: STORE           G68,#02
  4192.        STORE           G75,#00
  4193.        CALL_2N         R0045 (G00)
  4194.        CALL_2S         R0023 (G12) -> -(SP)
  4195.        CALL_VN         R0042 ((SP)+,G12,#00)
  4196.        STORE           G68,#00
  4197.        JZ              G13 [TRUE] L0011
  4198.        RTRUE           
  4199. L0011: CALL_1N         R0289
  4200.        JZ              G13 [TRUE] L0012
  4201.        RTRUE           
  4202. L0012: CALL_1N         R0093
  4203.        JZ              G13 [TRUE] L0013
  4204.        RTRUE           
  4205. L0013: STORE           L00,#01
  4206. L0014: JIN             L00,G12 [FALSE] L0015
  4207.        TEST_ATTR       L00,#0c [TRUE] L0015
  4208.        SET_ATTR        L00,#0c
  4209.        TEST_ATTR       L00,#12 [FALSE] L0015
  4210.        ADD             G0d,#0004 -> G0d
  4211.        ADD             G11,#0004 -> G11
  4212. L0015: INC             L00
  4213.        JG              L00,#0062 [TRUE] L0016
  4214.        JUMP            L0014
  4215. L0016: RFALSE          
  4216.  
  4217. Routine R0074, 8 locals
  4218.  
  4219.        STORE           L04,G27
  4220.        STORE           L05,G2a
  4221.        STORE           L06,G2b
  4222.        STORE           G27,L00
  4223.        STORE           G2a,L01
  4224.        STORE           G2b,L02
  4225.        STORE           L03,#00
  4226.        JZ              G36 [FALSE] L0001
  4227.        CALL_1S         R0078 -> -(SP)
  4228.        JZ              (SP)+ [FALSE] L0002
  4229. L0001: JL              G27,#1000 [FALSE] L0002
  4230.        LOADW           #3a7d,G27 -> -(SP)
  4231.        CALL_1N         (SP)+
  4232.        STORE           L07,#00
  4233.        JUMP            L0003
  4234. L0002: STORE           L07,#01
  4235. L0003: STORE           G27,L04
  4236.        STORE           G2a,L05
  4237.        STORE           G2b,L06
  4238.        RFALSE          
  4239.  
  4240. Routine R0075, 5 locals
  4241.  
  4242.        STORE           L03,G28
  4243.        STORE           L04,G29
  4244.        STORE           G28,L01
  4245.        STORE           G29,L02
  4246.        CALL_VN2        R0318 (#16,#4b,L00,L01,L02,#01)
  4247.        STORE           G28,L03
  4248.        STORE           G29,L04
  4249.        RTRUE           
  4250.  
  4251. Routine R0076, 7 locals
  4252.  
  4253.        STORE           L05,G31
  4254.        STORE           L06,G32
  4255.        STORE           G31,L00
  4256.        STORE           G32,#00
  4257.        STORE           L02,G34
  4258.        STORE           L03,G35
  4259.        STORE           L04,G68
  4260.        STORE           G68,#06
  4261.        JZ              L01 [FALSE] L0001
  4262.        STORE           G34,G12
  4263.        JUMP            L0002
  4264. L0001: STORE           G34,L01
  4265. L0002: CALL_2S         R0023 (G34) -> G35
  4266.        CALL_VN         R0042 (G35,G34,#00)
  4267.        STORE           G68,L04
  4268.        STORE           G34,L02
  4269.        STORE           G35,L03
  4270.        STORE           G31,L05
  4271.        STORE           L05,G32
  4272.        STORE           G32,L06
  4273.        RET             L05
  4274.  
  4275. Routine R0077, 6 locals
  4276.  
  4277.        STORE           L02,G31
  4278.        STORE           L03,G68
  4279.        STORE           L04,G34
  4280.        STORE           L05,G35
  4281.        STORE           G31,L00
  4282.        JZ              L01 [FALSE] L0001
  4283.        STORE           G34,G12
  4284.        JUMP            L0002
  4285. L0001: STORE           G34,L01
  4286. L0002: CALL_2S         R0023 (G34) -> G35
  4287.        STORE           G68,#05
  4288.        CALL_VN         R0042 (G35,G34,#00)
  4289.        STORE           G31,L02
  4290.        STORE           G68,L03
  4291.        STORE           G34,L04
  4292.        STORE           G35,L05
  4293.        RTRUE           
  4294.  
  4295. Routine R0078, 0 locals
  4296.  
  4297.        CALL_1S         R0296 -> -(SP)
  4298.        JZ              (SP)+ [FALSE] RTRUE
  4299.        CALL_VS         R0084 (G12,#1d) -> -(SP)
  4300.        JZ              (SP)+ [FALSE] RTRUE
  4301.        JZ              G00 [TRUE] L0001
  4302.        CALL_VS         R0084 (G00,#04) -> -(SP)
  4303.        JZ              (SP)+ [FALSE] RTRUE
  4304. L0001: STORE           G68,#03
  4305.        STORE           G31,#00
  4306.        CALL_2S         R0023 (G12) -> -(SP)
  4307.        CALL_VN         R0042 ((SP)+,G12,#00)
  4308.        STORE           G68,#00
  4309.        JZ              G31 [FALSE] RTRUE
  4310.        JG              G28,#01 [FALSE] L0002
  4311.        CALL_VS         R0084 (G28,#04) -> -(SP)
  4312.        JZ              (SP)+ [FALSE] RTRUE
  4313. L0002: RFALSE          
  4314.  
  4315. Routine R0079, 0 locals
  4316.  
  4317.        STORE           G68,#04
  4318.        STORE           G31,#00
  4319.        CALL_2S         R0023 (G12) -> -(SP)
  4320.        CALL_VN         R0042 ((SP)+,G12,#00)
  4321.        STORE           G68,#00
  4322.        JZ              G31 [FALSE] RTRUE
  4323.        JZ              G00 [TRUE] L0001
  4324.        CALL_VS         R0084 (G00,#05) -> -(SP)
  4325.        JZ              (SP)+ [FALSE] RTRUE
  4326. L0001: JG              G28,#01 [FALSE] L0002
  4327.        CALL_VS         R0084 (G28,#05) -> -(SP)
  4328.        JZ              (SP)+ [FALSE] RTRUE
  4329. L0002: CALL_1S         R0297 -> -(SP)
  4330.        RET_POPPED      
  4331.  
  4332. Routine R0080, 2 locals
  4333.  
  4334.        STORE           G2d,L01
  4335.        CALL_VS         R0084 (L00,#06) -> -(SP)
  4336.        RET_POPPED      
  4337.  
  4338. Routine R0081, 1 local
  4339.  
  4340.        CALL_VS         R0327 (L00) -> -(SP)
  4341.        PULL            Gef
  4342.        JE              Gef,#00 [FALSE] L0001
  4343.        RFALSE          
  4344. L0001: JE              Gef,#02,#01 [FALSE] L0002
  4345.        RTRUE           
  4346. L0002: JE              Gef,#03 [FALSE] L0003
  4347.        RET             #02
  4348. L0003: JE              Gef,#04 [FALSE] L0004
  4349.        RET             #03
  4350. L0004: RTRUE           
  4351.  
  4352. Routine R0082, 3 locals
  4353.  
  4354.        CALL_VS         R0320 (L00,L01) -> -(SP)
  4355.        JG              (SP)+,#02 [FALSE] L0001
  4356.        CALL_VS         R0084 (L00,L01) -> -(SP)
  4357.        RET_POPPED      
  4358. L0001: CALL_VS         R0317 (L00,L01) -> -(SP)
  4359.        JE              (SP)+,#ffff [TRUE] RFALSE
  4360.        CALL_VS         R0317 (L00,L01) -> -(SP)
  4361.        CALL_VS         R0327 ((SP)+) -> -(SP)
  4362.        PULL            Gef
  4363.        JE              Gef,#01,#02,#00 [FALSE] L0002
  4364.        CALL_VS         R0111 (#02,L00,L01) -> -(SP)
  4365.        RET_POPPED      
  4366. L0002: JE              Gef,#04 [FALSE] L0004
  4367.        CALL_VS         R0317 (L00,L01) -> -(SP)
  4368.        PRINT_PADDR     (SP)+
  4369.        JZ              L02 [FALSE] L0003
  4370.        NEW_LINE        
  4371. L0003: RTRUE           
  4372. L0004: JE              Gef,#03 [FALSE] L0005
  4373.        CALL_VS         R0084 (L00,L01) -> -(SP)
  4374.        RET_POPPED      
  4375. L0005: RTRUE           
  4376.  
  4377. Routine R0083, 2 locals
  4378.  
  4379.        CALL_VS         R0317 (L00,L01) -> -(SP)
  4380.        JL              (SP)+,#0100 [FALSE] L0001
  4381.        CALL_VS         R0317 (L00,L01) -> -(SP)
  4382.        RET_POPPED      
  4383. L0001: CALL_VS         R0084 (L00,L01) -> -(SP)
  4384.        RET_POPPED      
  4385.  
  4386. Routine R0084, 2 locals
  4387.  
  4388.        JE              L00,#13 [FALSE] L0001
  4389.        JE              L01,#1e,#2e,#23 [TRUE] L0001
  4390.        STORE           L00,G15
  4391. L0001: CALL_VS         R0319 (L00,L01) -> -(SP)
  4392.        JZ              (SP)+ [TRUE] RFALSE
  4393.        CALL_VS         R0318 (L00,L01) -> -(SP)
  4394.        RET_POPPED      
  4395.  
  4396. Routine R0085, 2 locals
  4397.  
  4398.        SUB             L00,#01 -> -(SP)
  4399.        LOADW           #00,#05 -> -(SP)
  4400.        STOREW          (SP)+,(SP)+,L01
  4401.        RTRUE           
  4402.  
  4403. Routine R0086, 3 locals
  4404.  
  4405.        STORE           L02,#00
  4406. L0001: JL              L02,G0c [FALSE] L0002
  4407.        LOADW           #260e,L02 -> -(SP)
  4408.        JE              (SP)+,L00 [TRUE] RFALSE
  4409.        INC             L02
  4410.        JUMP            L0001
  4411. L0002: STORE           L02,#00
  4412. L0003: JL              L02,G0c [FALSE] L0005
  4413.        LOADW           #260e,L02 -> -(SP)
  4414.        JZ              (SP)+ [FALSE] L0004
  4415.        JUMP            L0006
  4416. L0004: INC             L02
  4417.        JUMP            L0003
  4418. L0005: STORE           L02,G0c
  4419.        INC             G0c
  4420.        MUL             L02,#02 -> -(SP)
  4421.        JL              (SP)+,#40 [TRUE] L0006
  4422.        CALL_2N         R0111 (#04)
  4423. L0006: GET_PROP_ADDR   L00,#28 -> -(SP)
  4424.        JZ              (SP)+ [FALSE] L0007
  4425.        CALL_VN         R0111 (#05,L00)
  4426. L0007: STOREW          #260e,L02,L00
  4427.        PUT_PROP        L00,#28,L01
  4428.        RTRUE           
  4429.  
  4430. Routine R0087, 2 locals
  4431.  
  4432.        STORE           L01,#00
  4433. L0001: JL              L01,G0c [FALSE] L0003
  4434.        LOADW           #260e,L01 -> -(SP)
  4435.        JE              (SP)+,L00 [FALSE] L0002
  4436.        JUMP            L0004
  4437. L0002: INC             L01
  4438.        JUMP            L0001
  4439. L0003: RFALSE          
  4440. L0004: GET_PROP_ADDR   L00,#28 -> -(SP)
  4441.        JZ              (SP)+ [FALSE] L0005
  4442.        CALL_VN         R0111 (#05,L00)
  4443. L0005: STOREW          #260e,L01,#00
  4444.        PUT_PROP        L00,#28,#00
  4445.        RTRUE           
  4446.  
  4447. Routine R0088, 2 locals
  4448.  
  4449.        STORE           L01,#00
  4450. L0001: JL              L01,G0c [FALSE] L0002
  4451.        ADD             #8000,L00 -> -(SP)
  4452.        LOADW           #260e,L01 -> -(SP)
  4453.        JE              (SP)+,(SP)+ [TRUE] RFALSE
  4454.        INC             L01
  4455.        JUMP            L0001
  4456. L0002: STORE           L01,#00
  4457. L0003: JL              L01,G0c [FALSE] L0005
  4458.        LOADW           #260e,L01 -> -(SP)
  4459.        JZ              (SP)+ [FALSE] L0004
  4460.        JUMP            L0006
  4461. L0004: INC             L01
  4462.        JUMP            L0003
  4463. L0005: STORE           L01,G0c
  4464.        INC             G0c
  4465.        MUL             L01,#02 -> -(SP)
  4466.        JL              (SP)+,#40 [TRUE] L0006
  4467.        CALL_2N         R0111 (#04)
  4468. L0006: ADD             #8000,L00 -> -(SP)
  4469.        STOREW          #260e,L01,(SP)+
  4470.        RTRUE           
  4471.  
  4472. Routine R0089, 2 locals
  4473.  
  4474.        STORE           L01,#00
  4475. L0001: JL              L01,G0c [FALSE] L0003
  4476.        ADD             #8000,L00 -> -(SP)
  4477.        LOADW           #260e,L01 -> -(SP)
  4478.        JE              (SP)+,(SP)+ [FALSE] L0002
  4479.        JUMP            L0004
  4480. L0002: INC             L01
  4481.        JUMP            L0001
  4482. L0003: RFALSE          
  4483. L0004: STOREW          #260e,L01,#00
  4484.        RTRUE           
  4485.  
  4486. Routine R0090, 0 locals
  4487.  
  4488.        JE              G09,#ffff [FALSE] L0001
  4489.        STORE           G01,G0d
  4490.        STORE           G02,G08
  4491.        JUMP            L0002
  4492. L0001: DIV             G09,#3c -> G01
  4493.        MOD             G09,#3c -> G02
  4494. L0002: RTRUE           
  4495.  
  4496. Routine R0091, 2 locals
  4497.  
  4498.        STORE           G09,L00
  4499.        STORE           G0a,L01
  4500.        STORE           G0b,#00
  4501.        JL              L01,#00 [FALSE] L0001
  4502.        SUB             #00,L01 -> G0b
  4503. L0001: RTRUE           
  4504.  
  4505. Routine R0092, 0 locals
  4506.  
  4507.        PRINT           "
  4508. ["
  4509.        SUB             G0d,G0e -> -(SP)
  4510.        CALL_VN         R0236 (#1007,#32,(SP)+)
  4511.        PRINT           ".]
  4512. "
  4513.        RTRUE           
  4514.  
  4515. Routine R0093, 2 locals
  4516.  
  4517.        STORE           L01,G14
  4518.        GET_PARENT      G12 -> -(SP)
  4519.        CALL_2S         R0094 ((SP)+) -> G14
  4520.        JZ              L01 [FALSE] L0001
  4521.        JE              G14,#01 [FALSE] L0001
  4522.        STORE           G00,G15
  4523.        JZ              L00 [FALSE] L0001
  4524.        CALL_2N         R0075 (#1f)
  4525. L0001: JE              L01,#01 [FALSE] L0002
  4526.        JZ              G14 [FALSE] L0002
  4527.        STORE           G15,G00
  4528.        STORE           G00,#13
  4529.        JZ              L00 [FALSE] L0002
  4530.        CALL_1N         R0173
  4531.        CALL_VS         R0236 (#1007,#09) -> -(SP)
  4532.        RET_POPPED      
  4533. L0002: JZ              L01 [FALSE] L0003
  4534.        JZ              G14 [FALSE] L0003
  4535.        STORE           G00,#13
  4536. L0003: RTRUE           
  4537.  
  4538. Routine R0094, 2 locals
  4539.  
  4540.        JZ              L00 [TRUE] RFALSE
  4541.        TEST_ATTR       L00,#09 [TRUE] RTRUE
  4542.        GET_CHILD       L00 -> -(SP) [FALSE] L0001
  4543. L0001: PULL            L01
  4544.        JZ              L01 [TRUE] L0003
  4545. L0002: CALL_2S         R0095 (L01) -> -(SP)
  4546.        JE              (SP)+,#01 [TRUE] RTRUE
  4547.        GET_SIBLING     L01 -> L01 [TRUE] L0002
  4548. L0003: TEST_ATTR       L00,#04 [FALSE] L0006
  4549.        TEST_ATTR       L00,#0e [TRUE] L0004
  4550.        TEST_ATTR       L00,#17 [FALSE] L0005
  4551. L0004: GET_PARENT      L00 -> -(SP)
  4552.        CALL_2S         R0094 ((SP)+) -> -(SP)
  4553.        RET_POPPED      
  4554. L0005: JUMP            L0008
  4555. L0006: TEST_ATTR       L00,#07 [TRUE] L0007
  4556.        TEST_ATTR       L00,#17 [TRUE] L0007
  4557.        TEST_ATTR       L00,#14 [FALSE] L0008
  4558. L0007: GET_PARENT      L00 -> -(SP)
  4559.        CALL_2S         R0094 ((SP)+) -> -(SP)
  4560.        RET_POPPED      
  4561. L0008: RFALSE          
  4562.  
  4563. Routine R0095, 3 locals
  4564.  
  4565.        JZ              L00 [TRUE] RFALSE
  4566.        TEST_ATTR       L00,#09 [TRUE] RTRUE
  4567.        TEST_ATTR       L00,#07 [TRUE] L0001
  4568.        CALL_2S         R0043 (L00) -> -(SP)
  4569.        JE              (SP)+,#01 [FALSE] L0004
  4570. L0001: GET_CHILD       L00 -> -(SP) [FALSE] L0002
  4571. L0002: PULL            L00
  4572.        JZ              L00 [TRUE] L0004
  4573. L0003: CALL_2S         R0095 (L00) -> -(SP)
  4574.        JE              (SP)+,#01 [TRUE] RTRUE
  4575.        GET_SIBLING     L00 -> L00 [TRUE] L0003
  4576. L0004: GET_PROP_ADDR   L00,#18 -> L02
  4577.        GET_PARENT      L00 -> -(SP)
  4578.        JZ              (SP)+ [TRUE] L0008
  4579.        JZ              L02 [TRUE] L0008
  4580.        LOADW           L02,#00 -> -(SP)
  4581.        JG              (SP)+,G03 [FALSE] L0005
  4582.        STORE           G6d,#00
  4583.        STORE           G6c,#01
  4584.        CALL_VN         R0084 (L00,#18)
  4585.        STORE           G6c,#00
  4586.        JE              G6d,#01 [TRUE] RTRUE
  4587.        JUMP            L0008
  4588. L0005: STORE           L01,#00
  4589. L0006: GET_PROP_ADDR   L00,#18 -> Gef
  4590.        JZ              Gef [TRUE] L0007
  4591.        GET_PROP_LEN    Gef -> Gef
  4592. L0007: PUSH            Gef
  4593.        MUL             #02,L01 -> -(SP)
  4594.        JL              (SP)+,(SP)+ [FALSE] L0008
  4595.        LOADW           L02,L01 -> -(SP)
  4596.        CALL_2S         R0095 ((SP)+) -> -(SP)
  4597.        JE              (SP)+,#01 [TRUE] RTRUE
  4598.        INC             L01
  4599.        JUMP            L0006
  4600. L0008: RFALSE          
  4601.  
  4602. Routine R0096, 3 locals
  4603.  
  4604.        GET_PROP_ADDR   L00,#29 -> -(SP)
  4605.        JZ              (SP)+ [FALSE] L0001
  4606.        CALL_VS         R0111 (#07,L00) -> -(SP)
  4607.        RET_POPPED      
  4608. L0001: JE              G34,G12 [FALSE] L0002
  4609.        STORE           G34,L00
  4610. L0002: CLEAR_ATTR      G12,#17
  4611.        CLEAR_ATTR      G12,#03
  4612.        STORE           L02,L00
  4613. L0003: GET_PARENT      L02 -> -(SP)
  4614.        JZ              (SP)+ [TRUE] L0005
  4615.        TEST_ATTR       L02,#00 [FALSE] L0004
  4616.        SET_ATTR        L02,#17
  4617. L0004: GET_PARENT      L02 -> L02
  4618.        JUMP            L0003
  4619. L0005: JE              G12,#14 [FALSE] L0006
  4620.        PUT_PROP        G12,#2e,S029
  4621. L0006: PUT_PROP        G12,#29,G15
  4622.        STORE           G12,L00
  4623.        JE              G12,#14 [FALSE] L0007
  4624.        PUT_PROP        G12,#2e,#ffff
  4625. L0007: SET_ATTR        G12,#17
  4626.        SET_ATTR        G12,#03
  4627.        SET_ATTR        G12,#00
  4628.        SET_ATTR        G12,#10
  4629.        STORE           L02,G12
  4630. L0008: GET_PARENT      L02 -> -(SP)
  4631.        JZ              (SP)+ [TRUE] L0009
  4632.        GET_PARENT      L02 -> L02
  4633.        JUMP            L0008
  4634. L0009: STORE           G00,L02
  4635.        GET_PROP        G12,#29 -> G15
  4636.        JZ              G15 [FALSE] L0010
  4637.        STORE           G15,G00
  4638. L0010: GET_PARENT      G12 -> -(SP)
  4639.        CALL_2S         R0094 ((SP)+) -> G14
  4640.        JZ              G14 [FALSE] L0011
  4641.        STORE           G00,#13
  4642. L0011: STORE           G17,L01
  4643.        RTRUE           
  4644.  
  4645. Routine R0097, 7 locals
  4646.  
  4647.        INC             G21
  4648. L0001: STORE           G22,#00
  4649.        CALL_1S         L01 -> L03
  4650.        STORE           L04,G24
  4651.        PRINT           "--- "
  4652.        PRINT_PADDR     L04
  4653.        PRINT           " ---
  4654.  
  4655. "
  4656.        CALL_VS         R0322 (L00,#03) -> -(SP)
  4657.        JZ              (SP)+ [TRUE] L0002
  4658.        CALL_VN         R0318 (L00,#45)
  4659.        JUMP            L0003
  4660. L0002: PRINT_PADDR     L00
  4661. L0003: CALL_VN         R0236 (#1007,#34,L03)
  4662.        PRINT           "> "
  4663.        STORE           Gec,#29ce
  4664.        STOREB          Gec,#01,#00
  4665.        CALL_1N         R0239
  4666.        READ            Gec,#2a47 -> Gef
  4667.        LOADW           #2a47,#01 -> L05
  4668.        JE              L05,"q","quit" [TRUE] L0004
  4669.        LOADB           #2a47,#01 -> -(SP)
  4670.        JZ              (SP)+ [FALSE] L0006
  4671. L0004: DEC             G21
  4672.        JG              G21,#00 [TRUE] RFALSE
  4673.        JZ              G13 [FALSE] L0005
  4674.        CALL_2N         R0075 (#1f)
  4675.        RTRUE           
  4676. L0005: RFALSE          
  4677. L0006: CALL_2S         R0059 (#01) -> L05
  4678.        JZ              L05 [FALSE] L0007
  4679.        JUMP            L0001
  4680. L0007: JL              L05,#01 [TRUE] L0008
  4681.        JG              L05,L03 [FALSE] L0009
  4682. L0008: JUMP            L0003
  4683. L0009: STORE           G22,L05
  4684.        CALL_1S         L02 -> L06
  4685.        JE              L06,#02 [FALSE] L0010
  4686.        JUMP            L0001
  4687. L0010: JE              L06,#03 [TRUE] RFALSE
  4688.        JUMP            L0003
  4689.  
  4690. Routine R0098, 11 locals
  4691.  
  4692.        JZ              G20 [FALSE] L0001
  4693.        CALL_VS         R0097 (L00,L01,L02) -> -(SP)
  4694.        RET_POPPED      
  4695. L0001: INC             G21
  4696.        STORE           G22,#00
  4697.        CALL_1S         L01 -> L03
  4698.        STORE           L04,G24
  4699.        STORE           L05,G23
  4700.        STORE           L06,#07
  4701. L0002: STORE           L09,#00
  4702.        ERASE_WINDOW    #ffff
  4703.        ADD             L03,#07 -> L07
  4704.        SPLIT_WINDOW    L07
  4705.        LOADB           #00,#21 -> L07
  4706.        JZ              L07 [FALSE] L0003
  4707.        STORE           L07,#50
  4708. L0003: SET_WINDOW      #01
  4709.        SET_CURSOR      #01,#01
  4710.        SET_TEXT_STYLE  REVERSE
  4711.        STORE           Gef,L07
  4712.        JL              Gef,#01 [TRUE] L0005
  4713. L0004: PRINT_CHAR      ' '
  4714.        DEC             Gef
  4715.        JZ              Gef [FALSE] L0004
  4716. L0005: DIV             L07,#02 -> -(SP)
  4717.        SUB             (SP)+,L05 -> L08
  4718.        SET_CURSOR      #01,L08
  4719.        PRINT_PADDR     L04
  4720.        SET_CURSOR      #02,#01
  4721.        STORE           Gef,L07
  4722.        JL              Gef,#01 [TRUE] L0007
  4723. L0006: PRINT_CHAR      ' '
  4724.        DEC             Gef
  4725.        JZ              Gef [FALSE] L0006
  4726. L0007: SET_CURSOR      #02,#02
  4727.        PRINT_PADDR     S020
  4728.        SUB             L07,#0c -> L08
  4729.        SET_CURSOR      #02,L08
  4730.        PRINT_PADDR     S021
  4731.        SET_CURSOR      #03,#01
  4732.        STORE           Gef,L07
  4733.        JL              Gef,#01 [TRUE] L0009
  4734. L0008: PRINT_CHAR      ' '
  4735.        DEC             Gef
  4736.        JZ              Gef [FALSE] L0008
  4737. L0009: SET_CURSOR      #03,#02
  4738.        PRINT_PADDR     S024
  4739.        SUB             L07,#11 -> L08
  4740.        SET_CURSOR      #03,L08
  4741.        JE              G21,#01 [FALSE] L0010
  4742.        PRINT_PADDR     S022
  4743.        JUMP            L0011
  4744. L0010: PRINT_PADDR     S023
  4745. L0011: SET_TEXT_STYLE  ROMAN
  4746.        SET_CURSOR      #05,#02
  4747.        LOADW           #00,#08 -> Gef
  4748.        OR              #02,Gef -> Gef
  4749.        STOREW          #00,#08,Gef
  4750.        CALL_VS         R0322 (L00,#04) -> -(SP)
  4751.        JZ              (SP)+ [TRUE] L0012
  4752.        PRINT_PADDR     L00
  4753.        JUMP            L0013
  4754. L0012: CALL_VN         R0318 (L00,#45)
  4755. L0013: JE              L06,L09 [TRUE] L0015
  4756.        JG              L09,#00 [FALSE] L0014
  4757.        SET_CURSOR      L09,#04
  4758.        PRINT           " "
  4759. L0014: SET_CURSOR      L06,#04
  4760.        PRINT           ">"
  4761. L0015: STORE           L09,L06
  4762.        READ_CHAR       #01 -> L0a
  4763.        JE              L0a,#4e,#6e,#82 [FALSE] L0017
  4764.        INC             L06
  4765.        ADD             #07,L03 -> -(SP)
  4766.        JE              L06,(SP)+ [FALSE] L0016
  4767.        STORE           L06,#07
  4768. L0016: JUMP            L0013
  4769. L0017: JE              L0a,#50,#70,#81 [FALSE] L0019
  4770.        DEC             L06
  4771.        JE              L06,#06 [FALSE] L0018
  4772.        ADD             #06,L03 -> L06
  4773. L0018: JUMP            L0013
  4774. L0019: JE              L0a,#51,#71,#1b [TRUE] L0020
  4775.        JE              L0a,#83 [FALSE] L0021
  4776. L0020: JUMP            L0028
  4777. L0021: JE              L0a,#0a,#0d,#84 [FALSE] L0027
  4778.        SET_WINDOW      #00
  4779.        LOADW           #00,#08 -> Gef
  4780.        AND             #fffd,Gef -> Gef
  4781.        STOREW          #00,#08,Gef
  4782.        NEW_LINE        
  4783.        NEW_LINE        
  4784.        NEW_LINE        
  4785.        SUB             L06,#06 -> G22
  4786.        CALL_VN         R0318 (L01,#45)
  4787.        ERASE_WINDOW    #ffff
  4788.        SPLIT_WINDOW    #01
  4789.        LOADB           #00,#21 -> L07
  4790.        JZ              L07 [FALSE] L0022
  4791.        STORE           L07,#50
  4792. L0022: SET_WINDOW      #01
  4793.        SET_CURSOR      #01,#01
  4794.        SET_TEXT_STYLE  REVERSE
  4795.        STORE           Gef,L07
  4796.        JL              Gef,#01 [TRUE] L0024
  4797. L0023: PRINT_CHAR      ' '
  4798.        DEC             Gef
  4799.        JZ              Gef [FALSE] L0023
  4800. L0024: DIV             L07,#02 -> -(SP)
  4801.        SUB             (SP)+,G23 -> L08
  4802.        SET_CURSOR      #01,L08
  4803.        PRINT_PADDR     G24
  4804.        SET_TEXT_STYLE  ROMAN
  4805.        SET_WINDOW      #00
  4806.        NEW_LINE        
  4807.        CALL_VS         R0318 (L02,#45) -> L07
  4808.        JE              L07,#02 [FALSE] L0025
  4809.        JUMP            L0002
  4810. L0025: JE              L07,#03 [FALSE] L0026
  4811.        JUMP            L0028
  4812. L0026: CALL_VN         R0236 (#1007,#35)
  4813.        READ_CHAR       #01 -> L0a
  4814.        JUMP            L0002
  4815. L0027: JUMP            L0013
  4816. L0028: DEC             G21
  4817.        JG              G21,#00 [TRUE] RFALSE
  4818.        LOADW           #00,#08 -> Gef
  4819.        AND             #fffd,Gef -> Gef
  4820.        STOREW          #00,#08,Gef
  4821.        SET_CURSOR      #01,#01
  4822.        ERASE_WINDOW    #ffff
  4823.        SET_WINDOW      #00
  4824.        NEW_LINE        
  4825.        NEW_LINE        
  4826.        NEW_LINE        
  4827.        JZ              G13 [FALSE] L0029
  4828.        CALL_2N         R0075 (#1f)
  4829.        RTRUE           
  4830. L0029: RTRUE           
  4831.  
  4832. Routine R0099, 6 locals
  4833.  
  4834.        CALL_VS         R0321 (L00,#31) -> -(SP)
  4835.        JZ              (SP)+ [TRUE] L0002
  4836.        MUL             G7c,#01 -> -(SP)
  4837.        ADD             L01,(SP)+ -> -(SP)
  4838.        GET_PROP_ADDR   L00,#31 -> -(SP)
  4839.        LOADW           (SP)+,(SP)+ -> -(SP)
  4840.        PRINT_PADDR     (SP)+
  4841.        PRINT           " "
  4842.        JZ              L02 [TRUE] L0001
  4843.        RTRUE           
  4844. L0001: CALL_2N         R0100 (L00)
  4845.        RTRUE           
  4846. L0002: CALL_2S         R0061 (L00) -> L03
  4847.        JZ              L02 [TRUE] L0004
  4848.        JL              L03,#03 [TRUE] L0003
  4849.        JL              L03,#06 [TRUE] L0004
  4850.        JL              L03,#09 [FALSE] L0004
  4851. L0003: ADD             L03,#03 -> L03
  4852. L0004: LOADW           #2ce3,L03 -> L03
  4853.        MUL             L03,#01 -> -(SP)
  4854.        ADD             G7c,(SP)+ -> -(SP)
  4855.        MUL             #0c,(SP)+ -> -(SP)
  4856.        ADD             #2ccb,(SP)+ -> L04
  4857.        ADD             L01,#03 -> -(SP)
  4858.        LOADW           L04,(SP)+ -> -(SP)
  4859.        LOADW           L04,L01 -> -(SP)
  4860.        JE              (SP)+,(SP)+ [TRUE] L0005
  4861.        STORE           L05,#01
  4862. L0005: JZ              G04 [TRUE] L0008
  4863.        JZ              L05 [TRUE] L0008
  4864.        STOREW          #2cfb,#00,#a0
  4865.        OUTPUT_STREAM   REDIRECT_ENABLE,#2cfb
  4866.        JZ              L02 [TRUE] L0006
  4867.        CALL_2N         R0105 (L02)
  4868.        JUMP            L0007
  4869. L0006: CALL_2N         R0100 (L00)
  4870. L0007: OUTPUT_STREAM   #fffd
  4871.        ADD             #2cfb,#02 -> -(SP)
  4872.        CALL_2S         R0004 ((SP)+) -> -(SP)
  4873.        MUL             #03,(SP)+ -> -(SP)
  4874.        ADD             L01,(SP)+ -> L01
  4875. L0008: LOADW           L04,L01 -> -(SP)
  4876.        PRINT_PADDR     (SP)+
  4877.        JZ              L02 [TRUE] L0009
  4878.        RTRUE           
  4879. L0009: CALL_2N         R0100 (L00)
  4880.        RTRUE           
  4881.  
  4882. Routine R0100, 1 local
  4883.  
  4884.        JZ              L00 [FALSE] L0001
  4885.        PRINT_PADDR     S035
  4886.        RTRUE           
  4887. L0001: CALL_VS         R0327 (L00) -> -(SP)
  4888.        PULL            Gef
  4889.        JE              Gef,#03 [FALSE] L0002
  4890.        PRINT           "<routine "
  4891.        PRINT_NUM       L00
  4892.        PRINT           ">"
  4893.        RTRUE           
  4894. L0002: JE              Gef,#04 [FALSE] L0003
  4895.        PRINT           "<string ""
  4896.        PRINT_PADDR     L00
  4897.        PRINT           "">"
  4898.        RTRUE           
  4899. L0003: JE              Gef,#00 [FALSE] L0004
  4900.        PRINT           "<illegal object number "
  4901.        PRINT_NUM       L00
  4902.        PRINT           ">"
  4903.        RTRUE           
  4904. L0004: JE              L00,G12 [FALSE] L0005
  4905.        PRINT_PADDR     S030
  4906.        RTRUE           
  4907. L0005: JZ              G5a [TRUE] L0006
  4908.        GET_PROP_ADDR   L00,#2f -> -(SP)
  4909.        JZ              (SP)+ [TRUE] L0006
  4910.        CALL_VS         R0082 (L00,#2f,#01) -> -(SP)
  4911.        JZ              (SP)+ [FALSE] RTRUE
  4912. L0006: GET_PROP_ADDR   L00,#2e -> -(SP)
  4913.        JZ              (SP)+ [TRUE] L0007
  4914.        CALL_VS         R0082 (L00,#2e,#01) -> -(SP)
  4915.        JZ              (SP)+ [FALSE] RTRUE
  4916. L0007: PRINT_OBJ       L00
  4917.        RTRUE           
  4918.  
  4919. Routine R0101, 2 locals
  4920.  
  4921.        STORE           L01,G5a
  4922.        STORE           G5a,#01
  4923.        TEST_ATTR       L00,#10 [FALSE] L0001
  4924.        STORE           G5a,#ffff
  4925.        CALL_2N         R0100 (L00)
  4926.        RTRUE           
  4927. L0001: CALL_VS         R0321 (L00,#25) -> -(SP)
  4928.        JZ              (SP)+ [TRUE] L0002
  4929.        CALL_VN         R0082 (L00,#25,#01)
  4930.        PRINT           " "
  4931.        CALL_2N         R0100 (L00)
  4932.        STORE           G5a,L01
  4933.        RTRUE           
  4934. L0002: CALL_VN         R0099 (L00,#02)
  4935.        STORE           G5a,L01
  4936.        RTRUE           
  4937.  
  4938. Routine R0102, 2 locals
  4939.  
  4940.        STORE           L01,G5a
  4941.        STORE           G5a,#00
  4942.        TEST_ATTR       L00,#10 [FALSE] L0001
  4943.        STORE           G5a,#ffff
  4944.        CALL_2N         R0100 (L00)
  4945.        STORE           G5a,L01
  4946.        RTRUE           
  4947. L0001: CALL_VN         R0099 (L00,#01)
  4948.        STORE           G5a,L01
  4949.        RTRUE           
  4950.  
  4951. Routine R0103, 2 locals
  4952.  
  4953.        STORE           L01,G5a
  4954.        STORE           G5a,#00
  4955.        TEST_ATTR       L00,#10 [FALSE] L0001
  4956.        STORE           G5a,#ffff
  4957.        CALL_2N         R0100 (L00)
  4958.        STORE           G5a,L01
  4959.        RTRUE           
  4960. L0001: CALL_VN         R0099 (L00,#00)
  4961.        STORE           G5a,L01
  4962.        RTRUE           
  4963.  
  4964. Routine R0104, 2 locals
  4965.  
  4966.        STORE           L01,G5a
  4967.        STORE           G5a,#ffff
  4968.        CALL_2N         R0100 (L00)
  4969.        STORE           G5a,L01
  4970.        RTRUE           
  4971.  
  4972. Routine R0105, 1 local
  4973.  
  4974.        CALL_2N         R0006 (L00)
  4975.        RTRUE           
  4976.  
  4977. Routine R0106, 3 locals
  4978.  
  4979.        LOADW           #2c79,#00 -> L02
  4980.        STORE           L01,#01
  4981.        JUMP            L0002
  4982. L0001: ADD             L01,#02 -> L01
  4983. L0002: JG              L01,L02 [TRUE] L0004
  4984.        LOADW           #2c79,L01 -> -(SP)
  4985.        JE              L00,(SP)+ [FALSE] L0003
  4986.        ADD             L01,#01 -> -(SP)
  4987.        LOADW           #2c79,(SP)+ -> -(SP)
  4988.        RET_POPPED      
  4989. L0003: JUMP            L0001
  4990. L0004: RFALSE          
  4991.  
  4992. Routine R0107, 1 local
  4993.  
  4994.        LOADW           L00,#00 -> -(SP)
  4995.        JZ              (SP)+ [FALSE] L0001
  4996.        CALL_2S         R0111 (#08) -> -(SP)
  4997.        RET_POPPED      
  4998. L0001: LOADW           L00,#00 -> -(SP)
  4999.        RANDOM          (SP)+ -> -(SP)
  5000.        LOADW           L00,(SP)+ -> -(SP)
  5001.        RET_POPPED      
  5002.  
  5003. Routine R0108, 4 locals
  5004.  
  5005.        JE              L00,L01 [FALSE] L0001
  5006.        RFALSE          
  5007. L0001: JL              L00,#00 [FALSE] L0002
  5008.        JL              L01,#00 [TRUE] L0002
  5009.        RTRUE           
  5010. L0002: JL              L00,#00 [TRUE] L0003
  5011.        JL              L01,#00 [FALSE] L0003
  5012.        RET             #ffff
  5013. L0003: AND             L00,#7fff -> L02
  5014.        AND             L01,#7fff -> L03
  5015.        JG              L02,L03 [FALSE] L0004
  5016.        RTRUE           
  5017. L0004: RET             #ffff
  5018.  
  5019. Routine R0109, 1 local
  5020.  
  5021.        JZ              #486c [TRUE] L0001
  5022.        SET_TEXT_STYLE  BOLDFACE
  5023.        PRINT_PADDR     S001
  5024.        SET_TEXT_STYLE  ROMAN
  5025. L0001: JZ              #4870 [TRUE] L0002
  5026.        PRINT_PADDR     S002
  5027. L0002: PRINT           "Release "
  5028.        LOADW           #00,#01 -> -(SP)
  5029.        AND             (SP)+,#03ff -> -(SP)
  5030.        PRINT_NUM       (SP)+
  5031.        PRINT           " / Serial number "
  5032.        STORE           L00,#12
  5033. L0003: JL              L00,#18 [FALSE] L0004
  5034.        LOADB           #00,L00 -> -(SP)
  5035.        PRINT_CHAR      (SP)+
  5036.        INC             L00
  5037.        JUMP            L0003
  5038. L0004: PRINT           " / Inform v"
  5039.        LOADB           #00,#3c -> Gef
  5040.        PRINT_CHAR      Gef
  5041.        LOADB           #00,#3d -> Gef
  5042.        PRINT_CHAR      Gef
  5043.        LOADB           #00,#3e -> Gef
  5044.        PRINT_CHAR      Gef
  5045.        LOADB           #00,#3f -> Gef
  5046.        PRINT_CHAR      Gef
  5047.        PRINT           " Library "
  5048.        PRINT_PADDR     S004
  5049.        NEW_LINE        
  5050.        JG              G04,#00 [FALSE] L0005
  5051.        PRINT           "Standard interpreter "
  5052.        DIV             G04,#0100 -> -(SP)
  5053.        PRINT_NUM       (SP)+
  5054.        PRINT           "."
  5055.        MOD             G04,#0100 -> -(SP)
  5056.        PRINT_NUM       (SP)+
  5057.        PRINT           "
  5058. "
  5059. L0005: RTRUE           
  5060.  
  5061. Routine R0110, 0 locals
  5062.     Action routine for:
  5063.         "version"
  5064.  
  5065.        CALL_1N         R0109
  5066.        PRINT           "Interpreter "
  5067.        LOADB           #00,#1e -> -(SP)
  5068.        PRINT_NUM       (SP)+
  5069.        PRINT           " Version "
  5070.        LOADB           #00,#1f -> -(SP)
  5071.        PRINT_CHAR      (SP)+
  5072.        PRINT           " / "
  5073.        PRINT           "Library serial number "
  5074.        PRINT_PADDR     S003
  5075.        PRINT           "
  5076. "
  5077.        RTRUE           
  5078.  
  5079. Routine R0111, 3 locals
  5080.  
  5081.        PRINT           "** Library error "
  5082.        PRINT_NUM       L00
  5083.        PRINT           " ("
  5084.        PRINT_NUM       L01
  5085.        PRINT           ","
  5086.        PRINT_NUM       L02
  5087.        PRINT_RET       ") **"
  5088.  
  5089. Routine R0112, 0 locals
  5090.     Action routine for:
  5091.         "places"
  5092.  
  5093.        CALL_1N         R0137
  5094.        RTRUE           
  5095.  
  5096. Routine R0113, 0 locals
  5097.     Action routine for:
  5098.         "objects"
  5099.  
  5100.        CALL_1N         R0138
  5101.        RTRUE           
  5102.  
  5103. Routine R0114, 2 locals
  5104.  
  5105. L0001: GET_SIBLING     L00 -> L00 [FALSE] L0002
  5106. L0002: JZ              L00 [FALSE] L0003
  5107.        RFALSE          
  5108. L0003: JZ              G1a [TRUE] L0004
  5109.        GET_PROP        L00,#19 -> -(SP)
  5110.        JE              (SP)+,G1a [TRUE] L0004
  5111.        JUMP            L0001
  5112. L0004: AND             G19,#0200 -> -(SP)
  5113.        JZ              (SP)+ [TRUE] L0005
  5114.        JZ              L01 [FALSE] L0005
  5115.        TEST_ATTR       L00,#19 [TRUE] L0005
  5116.        JUMP            L0001
  5117. L0005: AND             G19,#0800 -> -(SP)
  5118.        JZ              (SP)+ [TRUE] L0007
  5119.        TEST_ATTR       L00,#03 [TRUE] L0006
  5120.        TEST_ATTR       L00,#11 [FALSE] L0007
  5121. L0006: JUMP            L0001
  5122. L0007: RET             L00
  5123.  
  5124. orphan code fragment:
  5125.  
  5126.        RTRUE           
  5127.  
  5128. Routine R0115, 1 local
  5129.  
  5130.        AND             G19,#20 -> -(SP)
  5131.        JZ              (SP)+ [FALSE] RTRUE
  5132.        AND             G19,#10 -> -(SP)
  5133.        JZ              (SP)+ [TRUE] RFALSE
  5134.        TEST_ATTR       L00,#17 [TRUE] RTRUE
  5135.        TEST_ATTR       L00,#14 [TRUE] RTRUE
  5136.        TEST_ATTR       L00,#04 [FALSE] L0001
  5137.        TEST_ATTR       L00,#0e [TRUE] RTRUE
  5138. L0001: RFALSE          
  5139.  
  5140. Routine R0116, 2 locals
  5141.  
  5142.        GET_CHILD       L00 -> -(SP) [FALSE] L0001
  5143. L0001: JZ              (SP)+ [TRUE] L0002
  5144.        CALL_2S         R0115 (L00) -> -(SP)
  5145.        JZ              (SP)+ [FALSE] RFALSE
  5146. L0002: GET_CHILD       L01 -> -(SP) [FALSE] L0003
  5147. L0003: JZ              (SP)+ [TRUE] L0004
  5148.        CALL_2S         R0115 (L01) -> -(SP)
  5149.        JZ              (SP)+ [FALSE] RFALSE
  5150. L0004: AND             G19,#84 -> -(SP)
  5151.        JZ              (SP)+ [TRUE] L0008
  5152.        TEST_ATTR       L00,#1a [TRUE] L0005
  5153.        TEST_ATTR       L01,#1a [TRUE] RFALSE
  5154. L0005: TEST_ATTR       L01,#1a [TRUE] L0006
  5155.        TEST_ATTR       L00,#1a [TRUE] RFALSE
  5156. L0006: TEST_ATTR       L00,#09 [TRUE] L0007
  5157.        TEST_ATTR       L01,#09 [TRUE] RFALSE
  5158. L0007: TEST_ATTR       L01,#09 [TRUE] L0008
  5159.        TEST_ATTR       L00,#09 [TRUE] RFALSE
  5160. L0008: CALL_VS         R0034 (L00,L01) -> -(SP)
  5161.        RET_POPPED      
  5162.  
  5163. Routine R0117, 2 locals
  5164.  
  5165. L0001: GET_CHILD       L00 -> -(SP) [FALSE] L0002
  5166. L0002: JZ              (SP)+ [TRUE] L0008
  5167.        GET_CHILD       L00 -> -(SP) [FALSE] L0003
  5168. L0003: GET_PROP        (SP)+,#19 -> -(SP)
  5169.        JE              (SP)+,L01 [TRUE] L0005
  5170.        GET_CHILD       L00 -> -(SP) [FALSE] L0004
  5171. L0004: INSERT_OBJ      (SP)+,"outside"
  5172.        JUMP            L0007
  5173. L0005: GET_CHILD       L00 -> -(SP) [FALSE] L0006
  5174. L0006: INSERT_OBJ      (SP)+,"inside"
  5175. L0007: JUMP            L0001
  5176. L0008: GET_CHILD       "inside" -> -(SP) [FALSE] L0009
  5177. L0009: JZ              (SP)+ [TRUE] L0011
  5178.        GET_CHILD       "inside" -> -(SP) [FALSE] L0010
  5179. L0010: INSERT_OBJ      (SP)+,L00
  5180.        JUMP            L0008
  5181. L0011: GET_CHILD       "outside" -> -(SP) [FALSE] L0012
  5182. L0012: JZ              (SP)+ [TRUE] L0014
  5183.        GET_CHILD       "outside" -> -(SP) [FALSE] L0013
  5184. L0013: INSERT_OBJ      (SP)+,L00
  5185.        JUMP            L0011
  5186. L0014: RTRUE           
  5187.  
  5188. Routine R0118, 4 locals
  5189.  
  5190. L0001: STORE           L01,L00
  5191.        JUMP            L0003
  5192. L0002: GET_SIBLING     L01 -> L01 [FALSE] L0003
  5193. L0003: JZ              L01 [TRUE] L0013
  5194.        GET_PROP        L01,#19 -> L02
  5195.        JZ              L02 [TRUE] L0012
  5196.        GET_SIBLING     L01 -> L01 [FALSE] L0004
  5197. L0004: JZ              L01 [TRUE] L0006
  5198.        GET_PROP        L01,#19 -> -(SP)
  5199.        JE              (SP)+,L02 [FALSE] L0006
  5200.        GET_SIBLING     L01 -> L01 [FALSE] L0005
  5201. L0005: JUMP            L0004
  5202. L0006: JZ              L01 [TRUE] RFALSE
  5203.        GET_SIBLING     L01 -> L03 [FALSE] L0007
  5204. L0007: JUMP            L0009
  5205. L0008: GET_SIBLING     L03 -> L03 [FALSE] L0009
  5206. L0009: JZ              L03 [TRUE] L0012
  5207.        GET_PROP        L03,#19 -> -(SP)
  5208.        JE              (SP)+,L02 [FALSE] L0011
  5209.        GET_PARENT      L00 -> -(SP)
  5210.        CALL_VN         R0117 ((SP)+,L02)
  5211.        GET_PARENT      L00 -> -(SP)
  5212.        GET_CHILD       (SP)+ -> L00 [FALSE] L0010
  5213. L0010: JUMP            L0001
  5214. L0011: JUMP            L0008
  5215. L0012: JUMP            L0002
  5216. L0013: RTRUE           
  5217.  
  5218. Routine R0119, 1 local
  5219.  
  5220.        JZ              L00 [FALSE] L0001
  5221.        RTRUE           
  5222. L0001: STORE           Gef,L00
  5223.        JL              Gef,#01 [TRUE] L0003
  5224. L0002: PRINT_CHAR      ' '
  5225.        DEC             Gef
  5226.        JZ              Gef [FALSE] L0002
  5227. L0003: RTRUE           
  5228.  
  5229. Routine R0120, 3 locals
  5230.  
  5231.        GET_PARENT      L00 -> -(SP)
  5232.        GET_CHILD       (SP)+ -> -(SP) [FALSE] L0001
  5233. L0001: JE              L00,(SP)+ [FALSE] L0002
  5234.        CALL_2N         R0118 (L00)
  5235.        GET_PARENT      L00 -> -(SP)
  5236.        GET_CHILD       (SP)+ -> L00 [FALSE] L0002
  5237. L0002: STORE           G19,L01
  5238.        STORE           G1d,#00
  5239.        CALL_VN         R0121 (L00,L02)
  5240.        RTRUE           
  5241.  
  5242. Routine R0121, 15 locals
  5243.  
  5244.        JG              L01,#00 [FALSE] L0002
  5245.        GET_PARENT      L00 -> -(SP)
  5246.        GET_CHILD       (SP)+ -> -(SP) [FALSE] L0001
  5247. L0001: JE              L00,(SP)+ [FALSE] L0002
  5248.        CALL_2N         R0118 (L00)
  5249.        GET_PARENT      L00 -> -(SP)
  5250.        GET_CHILD       (SP)+ -> L00 [FALSE] L0002
  5251. L0002: JZ              L00 [TRUE] RFALSE
  5252.        AND             G19,#0200 -> -(SP)
  5253.        JZ              (SP)+ [TRUE] L0004
  5254.        JZ              L01 [FALSE] L0004
  5255.        TEST_ATTR       L00,#19 [TRUE] L0004
  5256.        GET_SIBLING     L00 -> L00 [FALSE] L0003
  5257. L0003: JUMP            L0002
  5258. L0004: AND             G19,#0800 -> -(SP)
  5259.        JZ              (SP)+ [TRUE] L0007
  5260.        TEST_ATTR       L00,#03 [TRUE] L0005
  5261.        TEST_ATTR       L00,#11 [FALSE] L0007
  5262. L0005: GET_SIBLING     L00 -> L00 [FALSE] L0006
  5263. L0006: JUMP            L0002
  5264. L0007: JUMP            L0008
  5265. L0008: ADD             #28ce,L02 -> L03
  5266.        ADD             #284e,L02 -> L04
  5267.        STORE           L05,L00
  5268.        STORE           L06,#00
  5269.        JUMP            L0010
  5270. L0009: CALL_VS         R0114 (L05,L01) -> L05
  5271.        INC             L06
  5272. L0010: JZ              L05 [TRUE] L0012
  5273.        ADD             L06,L02 -> -(SP)
  5274.        JL              (SP)+,#80 [FALSE] L0012
  5275.        STOREB          L03,L06,#00
  5276.        GET_PROP        L05,#17 -> -(SP)
  5277.        JZ              (SP)+ [TRUE] L0011
  5278.        INC             L07
  5279. L0011: JUMP            L0009
  5280. L0012: AND             G19,#0400 -> -(SP)
  5281.        JZ              (SP)+ [TRUE] L0017
  5282.        JE              L06,#01 [FALSE] L0013
  5283.        TEST_ATTR       L00,#1e [TRUE] L0013
  5284.        PRINT_PADDR     S036
  5285.        JUMP            L0014
  5286. L0013: PRINT_PADDR     S037
  5287. L0014: AND             G19,#01 -> -(SP)
  5288.        JZ              (SP)+ [TRUE] L0015
  5289.        PRINT           ":
  5290. "
  5291.        JUMP            L0016
  5292. L0015: PRINT_CHAR      ' '
  5293. L0016: SUB             G19,#0400 -> G19
  5294. L0017: ADD             L02,L06 -> -(SP)
  5295.        ADD             (SP)+,#01 -> L02
  5296.        JL              L07,#02 [FALSE] L0018
  5297.        JUMP            L0068
  5298. L0018: STORE           L0b,#01
  5299.        STORE           L05,L00
  5300.        STORE           L07,#00
  5301.        JUMP            L0020
  5302. L0019: CALL_VS         R0114 (L05,L01) -> L05
  5303.        INC             L07
  5304. L0020: JL              L07,L06 [FALSE] L0026
  5305.        LOADB           L03,L07 -> -(SP)
  5306.        JZ              (SP)+ [FALSE] L0025
  5307.        STOREB          L03,L07,L0b
  5308.        STOREB          L04,L0b,#01
  5309.        CALL_VS         R0114 (L05,L01) -> L09
  5310.        ADD             L07,#01 -> L0a
  5311.        JUMP            L0022
  5312. L0021: CALL_VS         R0114 (L09,L01) -> L09
  5313.        INC             L0a
  5314. L0022: JZ              L09 [TRUE] L0024
  5315.        JL              L0a,L06 [FALSE] L0024
  5316.        LOADB           L03,L0a -> -(SP)
  5317.        JZ              (SP)+ [FALSE] L0023
  5318.        GET_PROP        L05,#17 -> -(SP)
  5319.        JZ              (SP)+ [TRUE] L0023
  5320.        GET_PROP        L09,#17 -> -(SP)
  5321.        JZ              (SP)+ [TRUE] L0023
  5322.        CALL_VS         R0116 (L05,L09) -> -(SP)
  5323.        JE              (SP)+,#01 [FALSE] L0023
  5324.        LOADB           L04,L0b -> -(SP)
  5325.        ADD             (SP)+,#01 -> -(SP)
  5326.        STOREB          L04,L0b,(SP)+
  5327.        STOREB          L03,L0a,L0b
  5328. L0023: JUMP            L0021
  5329. L0024: INC             L0b
  5330. L0025: JUMP            L0019
  5331. L0026: DEC             L0b
  5332.        STORE           L05,#01
  5333.        STORE           L06,L00
  5334.        STORE           L07,#00
  5335.        JUMP            L0028
  5336. L0027: INC             L05
  5337.        INC             L0d
  5338. L0028: JG              L05,L0b [TRUE] L0032
  5339. L0029: LOADB           L03,L07 -> -(SP)
  5340.        JE              (SP)+,L05 [TRUE] L0030
  5341.        SUB             #00,L05 -> -(SP)
  5342.        LOADB           L03,L07 -> -(SP)
  5343.        JE              (SP)+,(SP)+ [TRUE] L0030
  5344.        INC             L07
  5345.        CALL_VS         R0114 (L06,L01) -> L06
  5346.        JUMP            L0029
  5347. L0030: LOADB           L04,L05 -> L0a
  5348.        GET_PROP        L06,#19 -> -(SP)
  5349.        JE              (SP)+,#00,G1a [TRUE] L0031
  5350.        GET_PROP        L06,#19 -> -(SP)
  5351.        CALL_2S         R0081 ((SP)+) -> -(SP)
  5352.        JE              (SP)+,#02,#03 [FALSE] L0031
  5353.        GET_PROP        L06,#19 -> -(SP)
  5354.        JE              (SP)+,L0e [FALSE] L0031
  5355.        DEC             L0d
  5356. L0031: GET_PROP        L06,#19 -> L0e
  5357.        JUMP            L0027
  5358. L0032: DEC             L0d
  5359.        STORE           L05,#01
  5360.        STORE           L06,L00
  5361.        STORE           L07,#00
  5362.        STORE           L0e,#00
  5363.        JUMP            L0034
  5364. L0033: INC             L05
  5365.        DEC             L0d
  5366. L0034: JL              L0d,#00 [TRUE] L0067
  5367. L0035: LOADB           L03,L07 -> -(SP)
  5368.        JE              (SP)+,L05 [TRUE] L0036
  5369.        SUB             #00,L05 -> -(SP)
  5370.        LOADB           L03,L07 -> -(SP)
  5371.        JE              (SP)+,(SP)+ [TRUE] L0036
  5372.        INC             L07
  5373.        CALL_VS         R0114 (L06,L01) -> L06
  5374.        JUMP            L0035
  5375. L0036: GET_PROP        L06,#19 -> -(SP)
  5376.        JE              (SP)+,#00,G1a [TRUE] L0056
  5377.        GET_PROP        L06,#19 -> -(SP)
  5378.        JE              (SP)+,L0e [FALSE] L0037
  5379.        INC             L0d
  5380.        JUMP            L0066
  5381. L0037: CALL_VS         R0114 (L06,L01) -> L08
  5382.        JZ              L08 [TRUE] L0038
  5383.        GET_PROP        L06,#19 -> -(SP)
  5384.        GET_PROP        L08,#19 -> -(SP)
  5385.        JE              (SP)+,(SP)+ [TRUE] L0039
  5386. L0038: JUMP            L0056
  5387. L0039: GET_PROP        L06,#19 -> -(SP)
  5388.        CALL_2S         R0081 ((SP)+) -> L08
  5389.        JE              L08,#02,#03 [FALSE] L0056
  5390.        STORE           L0c,L06
  5391.        STORE           G1c,#01
  5392.        STORE           L09,L07
  5393.        STORE           L0a,L05
  5394. L0040: JL              L0a,L0b [FALSE] L0044
  5395.        GET_PROP        L06,#19 -> -(SP)
  5396.        GET_PROP        L0c,#19 -> -(SP)
  5397.        JE              (SP)+,(SP)+ [FALSE] L0044
  5398.        INC             L0a
  5399. L0041: LOADB           L03,L09 -> -(SP)
  5400.        JE              (SP)+,L0a [TRUE] L0042
  5401.        SUB             #00,L0a -> -(SP)
  5402.        LOADB           L03,L09 -> -(SP)
  5403.        JE              (SP)+,(SP)+ [TRUE] L0042
  5404.        INC             L09
  5405.        CALL_VS         R0114 (L0c,L01) -> L0c
  5406.        JUMP            L0041
  5407. L0042: GET_PROP        L06,#19 -> -(SP)
  5408.        GET_PROP        L0c,#19 -> -(SP)
  5409.        JE              (SP)+,(SP)+ [FALSE] L0043
  5410.        INC             G1c
  5411. L0043: JUMP            L0040
  5412. L0044: JE              G1c,#01 [FALSE] L0045
  5413.        JUMP            L0056
  5414. L0045: AND             G19,#02 -> -(SP)
  5415.        JZ              (SP)+ [TRUE] L0046
  5416.        ADD             L01,G1d -> -(SP)
  5417.        MUL             #02,(SP)+ -> -(SP)
  5418.        CALL_2N         R0119 ((SP)+)
  5419. L0046: JE              L08,#03 [FALSE] L0050
  5420.        STORE           L0c,#00
  5421.        STORE           L09,#00
  5422. L0047: JL              L09,G1c [FALSE] L0048
  5423.        ADD             L09,L05 -> -(SP)
  5424.        LOADB           L04,(SP)+ -> -(SP)
  5425.        ADD             L0c,(SP)+ -> L0c
  5426.        INC             L09
  5427.        JUMP            L0047
  5428. L0048: CALL_2N         R0105 (L0c)
  5429.        PRINT           " "
  5430.        GET_PROP        L06,#19 -> -(SP)
  5431.        PRINT_PADDR     (SP)+
  5432.        AND             G19,#08 -> -(SP)
  5433.        JZ              (SP)+ [TRUE] L0049
  5434.        PRINT           " ("
  5435. L0049: AND             G19,#02 -> -(SP)
  5436.        JZ              (SP)+ [TRUE] L0050
  5437.        PRINT           ":
  5438. "
  5439. L0050: STORE           L0c,G19
  5440.        JE              L08,#03 [TRUE] L0051
  5441.        STORE           G1e,#01
  5442.        STORE           G31,L06
  5443.        ADD             L01,G1d -> G32
  5444.        CALL_VS         R0084 (L06,#19) -> -(SP)
  5445.        JE              (SP)+,#01 [FALSE] L0051
  5446.        JUMP            L0054
  5447. L0051: GET_PROP        L06,#19 -> G1a
  5448.        STORE           G1b,L06
  5449.        INC             G1d
  5450.        CALL_VN         R0121 (L06,L01,L02)
  5451.        DEC             G1d
  5452.        STORE           G1a,#00
  5453.        STORE           G1b,#00
  5454.        JE              L08,#03 [FALSE] L0053
  5455.        AND             L0c,#08 -> -(SP)
  5456.        JZ              (SP)+ [TRUE] L0052
  5457.        PRINT           ")"
  5458. L0052: JUMP            L0054
  5459. L0053: STORE           G1e,#02
  5460.        STORE           G31,L06
  5461.        ADD             L01,G1d -> G32
  5462.        CALL_VN         R0084 (L06,#19)
  5463. L0054: AND             L0c,#01 -> -(SP)
  5464.        JZ              (SP)+ [TRUE] L0055
  5465.        AND             G19,#01 -> -(SP)
  5466.        JZ              (SP)+ [FALSE] L0055
  5467.        NEW_LINE        
  5468. L0055: STORE           G19,L0c
  5469.        GET_PROP        L06,#19 -> L0e
  5470.        JUMP            L0064
  5471. L0056: CALL_VS         R0122 (L06,L01) -> -(SP)
  5472.        JE              (SP)+,#01 [FALSE] L0057
  5473.        JUMP            L0066
  5474. L0057: LOADB           L04,L05 -> -(SP)
  5475.        JE              (SP)+,#01 [FALSE] L0061
  5476.        AND             G19,#1000 -> -(SP)
  5477.        JZ              (SP)+ [TRUE] L0058
  5478.        CALL_2N         R0104 (L06)
  5479.        JUMP            L0060
  5480. L0058: AND             G19,#0100 -> -(SP)
  5481.        JZ              (SP)+ [TRUE] L0059
  5482.        CALL_2N         R0102 (L06)
  5483.        JUMP            L0060
  5484. L0059: CALL_2N         R0101 (L06)
  5485. L0060: JUMP            L0063
  5486. L0061: AND             G19,#0100 -> -(SP)
  5487.        JZ              (SP)+ [TRUE] L0062
  5488.        LOADB           L04,L05 -> -(SP)
  5489.        CALL_VN         R0099 (L06,#01,(SP)+)
  5490. L0062: LOADB           L04,L05 -> -(SP)
  5491.        CALL_2N         R0105 ((SP)+)
  5492.        PRINT           " "
  5493.        CALL_VN         R0082 (L06,#17,#01)
  5494. L0063: CALL_VN         R0123 (L06,L01,L02)
  5495. L0064: AND             G19,#08 -> -(SP)
  5496.        JZ              (SP)+ [TRUE] L0066
  5497.        JE              L0d,#01 [FALSE] L0065
  5498.        PRINT_PADDR     S040
  5499. L0065: JG              L0d,#01 [FALSE] L0066
  5500.        PRINT           ", "
  5501. L0066: JUMP            L0033
  5502. L0067: RTRUE           
  5503. L0068: STORE           L0b,L06
  5504.        STORE           L05,#01
  5505.        STORE           L06,L00
  5506.        JUMP            L0070
  5507. L0069: CALL_VS         R0114 (L06,L01) -> L06
  5508.        INC             L05
  5509.        INC             L0d
  5510. L0070: JG              L05,L0b [TRUE] L0072
  5511.        GET_PROP        L06,#19 -> -(SP)
  5512.        JE              (SP)+,#00,G1a [TRUE] L0071
  5513.        GET_PROP        L06,#19 -> -(SP)
  5514.        CALL_2S         R0081 ((SP)+) -> -(SP)
  5515.        JE              (SP)+,#02,#03 [FALSE] L0071
  5516.        GET_PROP        L06,#19 -> -(SP)
  5517.        JE              (SP)+,L0e [FALSE] L0071
  5518.        DEC             L0d
  5519. L0071: GET_PROP        L06,#19 -> L0e
  5520.        JUMP            L0069
  5521. L0072: STORE           L05,#01
  5522.        STORE           L06,L00
  5523.        STORE           L0e,#00
  5524.        JUMP            L0074
  5525. L0073: CALL_VS         R0114 (L06,L01) -> L06
  5526.        INC             L05
  5527. L0074: JG              L05,L0d [TRUE] L0095
  5528.        GET_PROP        L06,#19 -> -(SP)
  5529.        JE              (SP)+,#00,G1a [TRUE] L0087
  5530.        GET_PROP        L06,#19 -> -(SP)
  5531.        JE              (SP)+,L0e [FALSE] L0075
  5532.        DEC             L05
  5533.        JUMP            L0094
  5534. L0075: CALL_VS         R0114 (L06,L01) -> L07
  5535.        JZ              L07 [TRUE] L0076
  5536.        GET_PROP        L06,#19 -> -(SP)
  5537.        GET_PROP        L07,#19 -> -(SP)
  5538.        JE              (SP)+,(SP)+ [TRUE] L0077
  5539. L0076: JUMP            L0087
  5540. L0077: GET_PROP        L06,#19 -> -(SP)
  5541.        CALL_2S         R0081 ((SP)+) -> L07
  5542.        JE              L07,#02,#03 [FALSE] L0087
  5543.        AND             G19,#02 -> -(SP)
  5544.        JZ              (SP)+ [TRUE] L0078
  5545.        ADD             L01,G1d -> -(SP)
  5546.        MUL             #02,(SP)+ -> -(SP)
  5547.        CALL_2N         R0119 ((SP)+)
  5548. L0078: JE              L07,#03 [FALSE] L0081
  5549.        STORE           L0c,L06
  5550.        STORE           L09,#00
  5551. L0079: CALL_VS         R0114 (L0c,L01) -> L0c
  5552.        INC             L09
  5553.        GET_PROP        L06,#19 -> -(SP)
  5554.        GET_PROP        L0c,#19 -> -(SP)
  5555.        JE              (SP)+,(SP)+ [TRUE] L0079
  5556.        CALL_2N         R0105 (L09)
  5557.        PRINT           " "
  5558.        GET_PROP        L06,#19 -> -(SP)
  5559.        PRINT_PADDR     (SP)+
  5560.        AND             G19,#08 -> -(SP)
  5561.        JZ              (SP)+ [TRUE] L0080
  5562.        PRINT           " ("
  5563. L0080: AND             G19,#02 -> -(SP)
  5564.        JZ              (SP)+ [TRUE] L0081
  5565.        PRINT           ":
  5566. "
  5567. L0081: STORE           L0c,G19
  5568.        JE              L07,#03 [TRUE] L0082
  5569.        STORE           G1e,#01
  5570.        STORE           G31,L06
  5571.        ADD             L01,G1d -> G32
  5572.        CALL_VS         R0084 (L06,#19) -> -(SP)
  5573.        JE              (SP)+,#01 [FALSE] L0082
  5574.        JUMP            L0085
  5575. L0082: GET_PROP        L06,#19 -> G1a
  5576.        STORE           G1b,L06
  5577.        INC             G1d
  5578.        CALL_VN         R0121 (L06,L01,L02)
  5579.        DEC             G1d
  5580.        STORE           G1a,#00
  5581.        STORE           G1b,#00
  5582.        JE              L07,#03 [FALSE] L0084
  5583.        AND             L0c,#08 -> -(SP)
  5584.        JZ              (SP)+ [TRUE] L0083
  5585.        PRINT           ")"
  5586. L0083: JUMP            L0085
  5587. L0084: STORE           G1e,#02
  5588.        STORE           G31,L06
  5589.        ADD             L01,G1d -> G32
  5590.        CALL_VN         R0084 (L06,#19)
  5591. L0085: AND             L0c,#01 -> -(SP)
  5592.        JZ              (SP)+ [TRUE] L0086
  5593.        AND             G19,#01 -> -(SP)
  5594.        JZ              (SP)+ [FALSE] L0086
  5595.        NEW_LINE        
  5596. L0086: STORE           G19,L0c
  5597.        GET_PROP        L06,#19 -> L0e
  5598.        JUMP            L0092
  5599. L0087: CALL_VS         R0122 (L06,L01) -> -(SP)
  5600.        JE              (SP)+,#01 [FALSE] L0088
  5601.        JUMP            L0094
  5602. L0088: AND             G19,#1000 -> -(SP)
  5603.        JZ              (SP)+ [TRUE] L0089
  5604.        CALL_2N         R0104 (L06)
  5605.        JUMP            L0091
  5606. L0089: AND             G19,#0100 -> -(SP)
  5607.        JZ              (SP)+ [TRUE] L0090
  5608.        CALL_2N         R0102 (L06)
  5609.        JUMP            L0091
  5610. L0090: CALL_2N         R0101 (L06)
  5611. L0091: CALL_VN         R0123 (L06,L01,L02)
  5612. L0092: AND             G19,#08 -> -(SP)
  5613.        JZ              (SP)+ [TRUE] L0094
  5614.        SUB             L0d,#01 -> -(SP)
  5615.        JE              L05,(SP)+ [FALSE] L0093
  5616.        PRINT_PADDR     S040
  5617. L0093: SUB             L0d,#01 -> -(SP)
  5618.        JL              L05,(SP)+ [FALSE] L0094
  5619.        PRINT           ", "
  5620. L0094: JUMP            L0073
  5621. L0095: RTRUE           
  5622.  
  5623. Routine R0122, 3 locals
  5624.  
  5625.        AND             G19,#02 -> -(SP)
  5626.        JZ              (SP)+ [TRUE] L0001
  5627.        ADD             L01,G1d -> -(SP)
  5628.        MUL             #02,(SP)+ -> -(SP)
  5629.        CALL_2N         R0119 ((SP)+)
  5630. L0001: AND             G19,#04 -> -(SP)
  5631.        JZ              (SP)+ [TRUE] L0002
  5632.        GET_PROP        L00,#16 -> -(SP)
  5633.        JZ              (SP)+ [TRUE] L0002
  5634.        STORE           G1e,#01
  5635.        CALL_VS         R0082 (L00,#16,#01) -> L02
  5636.        JE              L02,#01 [FALSE] L0002
  5637.        AND             G19,#01 -> -(SP)
  5638.        JZ              (SP)+ [TRUE] L0002
  5639.        NEW_LINE        
  5640. L0002: RET             L02
  5641.  
  5642. Routine R0123, 8 locals
  5643.  
  5644.        AND             G19,#80 -> -(SP)
  5645.        JZ              (SP)+ [TRUE] L0012
  5646.        STORE           L07,#00
  5647.        TEST_ATTR       L00,#09 [FALSE] L0001
  5648.        TEST_ATTR       G00,#09 [TRUE] L0001
  5649.        ADD             L07,#01 -> L07
  5650. L0001: TEST_ATTR       L00,#04 [FALSE] L0002
  5651.        TEST_ATTR       L00,#0e [TRUE] L0002
  5652.        ADD             L07,#02 -> L07
  5653. L0002: TEST_ATTR       L00,#04 [FALSE] L0005
  5654.        TEST_ATTR       L00,#0e [TRUE] L0003
  5655.        TEST_ATTR       L00,#17 [FALSE] L0005
  5656. L0003: GET_CHILD       L00 -> -(SP) [FALSE] L0004
  5657. L0004: JZ              (SP)+ [FALSE] L0005
  5658.        ADD             L07,#04 -> L07
  5659. L0005: JE              L07,#01 [FALSE] L0006
  5660.        CALL_VN         R0236 (#1006,#01,L00)
  5661. L0006: JE              L07,#02 [FALSE] L0007
  5662.        CALL_VN         R0236 (#1006,#02,L00)
  5663. L0007: JE              L07,#03 [FALSE] L0008
  5664.        CALL_VN         R0236 (#1006,#03,L00)
  5665. L0008: JE              L07,#04 [FALSE] L0009
  5666.        CALL_VN         R0236 (#1006,#04,L00)
  5667. L0009: JE              L07,#05 [FALSE] L0010
  5668.        CALL_VN         R0236 (#1006,#05,L00)
  5669. L0010: JE              L07,#06 [FALSE] L0011
  5670.        CALL_VN         R0236 (#1006,#06,L00)
  5671. L0011: JE              L07,#07 [FALSE] L0012
  5672.        CALL_VN         R0236 (#1006,#07,L00)
  5673. L0012: AND             G19,#04 -> -(SP)
  5674.        JZ              (SP)+ [TRUE] L0030
  5675.        GET_PROP        L00,#16 -> -(SP)
  5676.        JZ              (SP)+ [TRUE] L0014
  5677.        STORE           G1e,#02
  5678.        CALL_VS         R0084 (L00,#16) -> -(SP)
  5679.        JZ              (SP)+ [TRUE] L0014
  5680.        AND             G19,#01 -> -(SP)
  5681.        JZ              (SP)+ [TRUE] L0013
  5682.        NEW_LINE        
  5683. L0013: RTRUE           
  5684. L0014: TEST_ATTR       L00,#09 [FALSE] L0015
  5685.        TEST_ATTR       L00,#1a [FALSE] L0015
  5686.        CALL_VN         R0236 (#1006,#08)
  5687.        STORE           L04,#01
  5688.        JUMP            L0017
  5689. L0015: TEST_ATTR       L00,#09 [FALSE] L0016
  5690.        CALL_VN         R0236 (#1006,#09,L00)
  5691.        STORE           L04,#01
  5692. L0016: TEST_ATTR       L00,#1a [FALSE] L0017
  5693.        CALL_VN         R0236 (#1006,#0a,L00)
  5694.        STORE           L04,#01
  5695. L0017: TEST_ATTR       L00,#04 [FALSE] L0029
  5696.        TEST_ATTR       L00,#0f [FALSE] L0026
  5697.        JE              L04,#01 [FALSE] L0018
  5698.        PRINT_PADDR     S040
  5699.        JUMP            L0019
  5700. L0018: CALL_VN         R0236 (#1006,#0b,L00)
  5701. L0019: TEST_ATTR       L00,#0e [FALSE] L0023
  5702.        GET_CHILD       L00 -> -(SP) [FALSE] L0020
  5703. L0020: JZ              (SP)+ [FALSE] L0021
  5704.        CALL_VN         R0236 (#1006,#0d,L00)
  5705.        JUMP            L0022
  5706. L0021: CALL_VN         R0236 (#1006,#0c,L00)
  5707. L0022: JUMP            L0025
  5708. L0023: TEST_ATTR       L00,#0a [FALSE] L0024
  5709.        TEST_ATTR       L00,#0b [FALSE] L0024
  5710.        CALL_VN         R0236 (#1006,#0f,L00)
  5711.        JUMP            L0025
  5712. L0024: CALL_VN         R0236 (#1006,#0e,L00)
  5713. L0025: STORE           L04,#01
  5714.        JUMP            L0029
  5715. L0026: GET_CHILD       L00 -> -(SP) [FALSE] L0027
  5716. L0027: JZ              (SP)+ [FALSE] L0029
  5717.        TEST_ATTR       L00,#17 [FALSE] L0029
  5718.        JE              L04,#01 [FALSE] L0028
  5719.        CALL_VN         R0236 (#1006,#10,L00)
  5720.        JUMP            L0029
  5721. L0028: CALL_VN         R0236 (#1006,#11,L00)
  5722. L0029: JE              L04,#01 [FALSE] L0030
  5723.        PRINT           ")"
  5724. L0030: AND             G19,#0800 -> -(SP)
  5725.        JZ              (SP)+ [FALSE] L0034
  5726.        STORE           Gef,#00
  5727.        GET_CHILD       L00 -> -(SP) [FALSE] L0032
  5728. L0031: INC             Gef
  5729.        GET_SIBLING     (SP)+ -> -(SP) [TRUE] L0031
  5730. L0032: PULL            Gee
  5731.        STORE           L05,Gef
  5732.        GET_CHILD       L00 -> L04 [FALSE] L0033
  5733. L0033: JUMP            L0038
  5734. L0034: STORE           L05,#00
  5735.        GET_CHILD       L00 -> -(SP) [FALSE] L0035
  5736. L0035: PULL            L06
  5737.        JZ              L06 [TRUE] L0038
  5738. L0036: TEST_ATTR       L06,#03 [TRUE] L0037
  5739.        TEST_ATTR       L06,#11 [TRUE] L0037
  5740.        INC             L05
  5741.        STORE           L04,L06
  5742. L0037: GET_SIBLING     L06 -> L06 [TRUE] L0036
  5743. L0038: AND             G19,#20 -> -(SP)
  5744.        JZ              (SP)+ [TRUE] L0040
  5745.        JG              L05,#00 [FALSE] L0040
  5746.        AND             G19,#08 -> -(SP)
  5747.        JZ              (SP)+ [TRUE] L0039
  5748.        CALL_VN         R0236 (#1006,#12,L00)
  5749. L0039: STORE           L03,#01
  5750. L0040: AND             G19,#10 -> -(SP)
  5751.        JZ              (SP)+ [TRUE] L0051
  5752.        JG              L05,#00 [FALSE] L0051
  5753.        TEST_ATTR       L00,#14 [FALSE] L0045
  5754.        AND             G19,#08 -> -(SP)
  5755.        JZ              (SP)+ [TRUE] L0044
  5756.        AND             G19,#40 -> -(SP)
  5757.        JZ              (SP)+ [TRUE] L0041
  5758.        CALL_VN         R0236 (#1006,#13,L00)
  5759.        JUMP            L0042
  5760. L0041: CALL_VN         R0236 (#1006,#14,L00)
  5761. L0042: TEST_ATTR       L00,#00 [FALSE] L0043
  5762.        PRINT_PADDR     S041
  5763.        JUMP            L0044
  5764. L0043: PRINT_PADDR     S042
  5765. L0044: STORE           L03,#01
  5766. L0045: TEST_ATTR       L00,#04 [FALSE] L0051
  5767.        TEST_ATTR       L00,#0e [TRUE] L0046
  5768.        TEST_ATTR       L00,#17 [FALSE] L0051
  5769. L0046: AND             G19,#08 -> -(SP)
  5770.        JZ              (SP)+ [TRUE] L0050
  5771.        AND             G19,#40 -> -(SP)
  5772.        JZ              (SP)+ [TRUE] L0047
  5773.        CALL_VN         R0236 (#1006,#15,L00)
  5774.        JUMP            L0048
  5775. L0047: CALL_VN         R0236 (#1006,#16,L00)
  5776. L0048: TEST_ATTR       L00,#00 [FALSE] L0049
  5777.        PRINT_PADDR     S041
  5778.        JUMP            L0050
  5779. L0049: PRINT_PADDR     S042
  5780. L0050: STORE           L03,#01
  5781. L0051: JE              L03,#01 [FALSE] L0054
  5782.        AND             G19,#08 -> -(SP)
  5783.        JZ              (SP)+ [TRUE] L0054
  5784.        JG              L05,#01 [TRUE] L0052
  5785.        TEST_ATTR       L04,#1e [FALSE] L0053
  5786. L0052: PRINT_PADDR     S039
  5787.        JUMP            L0054
  5788. L0053: PRINT_PADDR     S038
  5789. L0054: AND             G19,#01 -> -(SP)
  5790.        JZ              (SP)+ [TRUE] L0055
  5791.        NEW_LINE        
  5792. L0055: JE              L03,#01 [FALSE] L0057
  5793.        GET_CHILD       L00 -> L00 [FALSE] L0056
  5794. L0056: ADD             L01,#01 -> -(SP)
  5795.        CALL_VN         R0121 (L00,(SP)+,L02)
  5796.        AND             G19,#40 -> -(SP)
  5797.        JZ              (SP)+ [TRUE] L0057
  5798.        PRINT           ")"
  5799. L0057: RTRUE           
  5800.  
  5801. Routine R0124, 5 locals
  5802.  
  5803.        STORE           L00,#01
  5804. L0001: GET_PROP_ADDR   L00,#27 -> L04
  5805.        JZ              L04 [TRUE] L0008
  5806.        TEST_ATTR       L00,#01 [TRUE] L0008
  5807.        LOADW           L04,#00 -> -(SP)
  5808.        CALL_2S         R0081 ((SP)+) -> -(SP)
  5809.        JE              (SP)+,#02 [FALSE] L0003
  5810.        LOADW           L04,#00 -> -(SP)
  5811.        CALL_1S         (SP)+ -> -(SP)
  5812.        JZ              (SP)+ [TRUE] L0002
  5813.        INSERT_OBJ      L00,G00
  5814. L0002: JUMP            L0008
  5815. L0003: GET_PROP_ADDR   L00,#27 -> Gef
  5816.        JZ              Gef [TRUE] L0004
  5817.        GET_PROP_LEN    Gef -> Gef
  5818. L0004: STORE           L01,Gef
  5819.        STORE           L02,#00
  5820. L0005: DIV             L01,#02 -> -(SP)
  5821.        JL              L02,(SP)+ [FALSE] L0008
  5822.        LOADW           L04,L02 -> L03
  5823.        JE              L03,G00 [TRUE] L0006
  5824.        JIN             L03,G00 [FALSE] L0007
  5825. L0006: INSERT_OBJ      L00,G00
  5826. L0007: INC             L02
  5827.        JUMP            L0005
  5828. L0008: INC             L00
  5829.        JG              L00,#0062 [TRUE] L0009
  5830.        JUMP            L0001
  5831. L0009: RTRUE           
  5832.  
  5833. Routine R0125, 2 locals
  5834.  
  5835.        INSERT_OBJ      G12,L00
  5836. L0001: GET_PARENT      L00 -> -(SP)
  5837.        JZ              (SP)+ [TRUE] L0002
  5838.        GET_PARENT      L00 -> L00
  5839.        JUMP            L0001
  5840. L0002: STORE           G00,L00
  5841.        STORE           G15,G00
  5842.        CALL_2N         R0093 (#01)
  5843.        JZ              L01 [FALSE] L0003
  5844.        CALL_2N         R0075 (#1f)
  5845. L0003: JE              L01,#01 [FALSE] L0004
  5846.        CALL_1N         R0173
  5847.        CALL_1N         R0174
  5848. L0004: JE              L01,#02 [FALSE] L0005
  5849.        CALL_2N         R0175 (#01)
  5850. L0005: RTRUE           
  5851.  
  5852. Routine R0126, 1 local
  5853.  
  5854.        CALL_VN         R0075 (#1b,L00)
  5855.        CALL_2N         R0075 (#1f)
  5856.        RTRUE           
  5857.  
  5858. Routine R0127, 1 local
  5859.  
  5860. L0001: STORE           Gec,#29ce
  5861.        STOREB          Gec,#01,#00
  5862.        CALL_1N         R0239
  5863.        READ            Gec,#2a47 -> Gef
  5864.        LOADW           #2a47,#01 -> L00
  5865.        JE              L00,S082 OR "y","yes","yes" [TRUE] RTRUE
  5866.        JE              L00,"n","no","no" [TRUE] RFALSE
  5867.        CALL_VN         R0236 (#01,#01)
  5868.        PRINT           "> "
  5869.        JUMP            L0001
  5870.  
  5871. orphan code fragment:
  5872.  
  5873.        RTRUE           
  5874.  
  5875. Routine R0128, 0 locals
  5876.     Action routine for:
  5877.         "die"
  5878.  
  5879.        CALL_VN         R0236 (#01,#02)
  5880.        CALL_1S         R0127 -> -(SP)
  5881.        JZ              (SP)+ [TRUE] L0001
  5882.        QUIT            
  5883. L0001: RTRUE           
  5884.  
  5885. Routine R0129, 0 locals
  5886.     Action routine for:
  5887.         "restart"
  5888.  
  5889.        CALL_VN         R0236 (#02,#01)
  5890.        CALL_1S         R0127 -> -(SP)
  5891.        JZ              (SP)+ [TRUE] L0001
  5892.        RESTART         
  5893.        CALL_VN         R0236 (#02,#02)
  5894. L0001: RTRUE           
  5895.  
  5896. Routine R0130, 0 locals
  5897.     Action routine for:
  5898.         "restore"
  5899.  
  5900.        RESTORE         -> Gef
  5901.        JE              Gef,#02 [TRUE] L0001
  5902.        CALL_VS         R0236 (#03,#01) -> -(SP)
  5903.        RET_POPPED      
  5904. L0001: CALL_VN         R0236 (#03,#02)
  5905.        RTRUE           
  5906.  
  5907. Routine R0131, 0 locals
  5908.     Action routine for:
  5909.         "save"
  5910.  
  5911.        SAVE            -> Gef
  5912.        JZ              Gef [FALSE] L0001
  5913.        CALL_VS         R0236 (#04,#01) -> -(SP)
  5914.        RET_POPPED      
  5915. L0001: CALL_VN         R0236 (#04,#02)
  5916.        RTRUE           
  5917.  
  5918. Routine R0132, 0 locals
  5919.     Action routine for:
  5920.         "verify"
  5921.  
  5922.        VERIFY          [TRUE] L0001
  5923.        JUMP            L0002
  5924. L0001: CALL_VS         R0236 (#05,#01) -> -(SP)
  5925.        RET_POPPED      
  5926. L0002: CALL_VN         R0236 (#05,#02)
  5927.        RTRUE           
  5928.  
  5929. Routine R0133, 0 locals
  5930.     Action routine for:
  5931.         "script"
  5932.         "script on"
  5933.  
  5934.        JE              G07,#01 [FALSE] L0001
  5935.        CALL_VS         R0236 (#06,#01) -> -(SP)
  5936.        RET_POPPED      
  5937. L0001: STORE           G07,#01
  5938.        LOADW           #00,#08 -> -(SP)
  5939.        OR              (SP)+,#01 -> -(SP)
  5940.        STOREW          #00,#08,(SP)+
  5941.        CALL_VN         R0236 (#06,#02)
  5942.        CALL_1N         R0110
  5943.        RTRUE           
  5944.  
  5945. Routine R0134, 0 locals
  5946.     Action routine for:
  5947.         "script off"
  5948.         "noscript"
  5949.  
  5950.        JZ              G07 [FALSE] L0001
  5951.        CALL_VS         R0236 (#07,#01) -> -(SP)
  5952.        RET_POPPED      
  5953. L0001: CALL_VN         R0236 (#07,#02)
  5954.        STORE           G07,#00
  5955.        LOADW           #00,#08 -> -(SP)
  5956.        AND             (SP)+,#fffe -> -(SP)
  5957.        STOREW          #00,#08,(SP)+
  5958.        RTRUE           
  5959.  
  5960. Routine R0135, 0 locals
  5961.     Action routine for:
  5962.         "notify on"
  5963.  
  5964.        STORE           G0f,#01
  5965.        CALL_2N         R0236 (#08)
  5966.        RTRUE           
  5967.  
  5968. Routine R0136, 0 locals
  5969.     Action routine for:
  5970.         "notify off"
  5971.  
  5972.        STORE           G0f,#00
  5973.        CALL_2N         R0236 (#09)
  5974.        RTRUE           
  5975.  
  5976. Routine R0137, 3 locals
  5977.  
  5978.        CALL_2N         R0236 (#0a)
  5979.        STORE           L00,#01
  5980. L0001: TEST_ATTR       L00,#18 [FALSE] L0002
  5981.        INC             L01
  5982. L0002: INC             L00
  5983.        JG              L00,#0062 [TRUE] L0003
  5984.        JUMP            L0001
  5985. L0003: STORE           L00,#01
  5986. L0004: TEST_ATTR       L00,#18 [FALSE] L0007
  5987.        CALL_2N         R0104 (L00)
  5988.        INC             L02
  5989.        JE              L02,L01 [FALSE] L0005
  5990.        PRINT_RET       "."
  5991. L0005: SUB             L01,#01 -> -(SP)
  5992.        JE              L02,(SP)+ [FALSE] L0006
  5993.        PRINT_PADDR     S040
  5994.        JUMP            L0007
  5995. L0006: PRINT           ", "
  5996. L0007: INC             L00
  5997.        JG              L00,#0062 [TRUE] L0008
  5998.        JUMP            L0004
  5999. L0008: RTRUE           
  6000.  
  6001. Routine R0138, 3 locals
  6002.  
  6003.        CALL_VN         R0236 (#0b,#01)
  6004.        STORE           L00,#01
  6005. L0001: TEST_ATTR       L00,#0c [FALSE] L0011
  6006.        STORE           L02,#01
  6007.        CALL_2N         R0102 (L00)
  6008.        GET_PARENT      L00 -> L01
  6009.        JE              L01,G12 [FALSE] L0004
  6010.        TEST_ATTR       L00,#1a [FALSE] L0002
  6011.        CALL_VN         R0236 (#0b,#03)
  6012.        JUMP            L0003
  6013. L0002: CALL_VN         R0236 (#0b,#04)
  6014. L0003: JUMP            L0010
  6015. L0004: TEST_ATTR       L01,#00 [FALSE] L0005
  6016.        CALL_VN         R0236 (#0b,#05)
  6017.        JUMP            L0010
  6018. L0005: TEST_ATTR       L01,#18 [FALSE] L0006
  6019.        CALL_VN         R0236 (#0b,#06,L01)
  6020.        JUMP            L0010
  6021. L0006: TEST_ATTR       L01,#04 [FALSE] L0007
  6022.        CALL_VN         R0236 (#0b,#08,L01)
  6023.        JUMP            L0010
  6024. L0007: TEST_ATTR       L01,#14 [FALSE] L0008
  6025.        CALL_VN         R0236 (#0b,#09,L01)
  6026.        JUMP            L0010
  6027. L0008: TEST_ATTR       L01,#07 [FALSE] L0009
  6028.        CALL_VN         R0236 (#0b,#07,L01)
  6029.        JUMP            L0010
  6030. L0009: CALL_VN         R0236 (#0b,#0a)
  6031. L0010: NEW_LINE        
  6032. L0011: INC             L00
  6033.        JG              L00,#0062 [TRUE] L0012
  6034.        JUMP            L0001
  6035. L0012: JZ              L02 [FALSE] L0013
  6036.        CALL_VN         R0236 (#0b,#02)
  6037. L0013: RTRUE           
  6038.  
  6039. Routine R0139, 0 locals
  6040.     Action routine for:
  6041.         
  6042.  
  6043.        CALL_2N         R0236 (#0c)
  6044.        CALL_1N         R0306
  6045.        RTRUE           
  6046.  
  6047. Routine R0140, 1 local
  6048.  
  6049.        LOADB           #2e41,L00 -> -(SP)
  6050.        JZ              (SP)+ [FALSE] L0001
  6051.        STOREB          #2e41,L00,#01
  6052.        LOADB           #2e3d,L00 -> -(SP)
  6053.        ADD             G0d,(SP)+ -> G0d
  6054. L0001: RTRUE           
  6055.  
  6056. Routine R0141, 2 locals
  6057.  
  6058.        PRINT           "  "
  6059.        STORE           L01,L00
  6060.        JL              L01,#00 [FALSE] L0001
  6061.        SUB             #00,L00 -> L01
  6062.        MUL             L01,#0a -> L01
  6063. L0001: JL              L01,#0a [FALSE] L0002
  6064.        PRINT           "   "
  6065.        JUMP            L0004
  6066. L0002: JL              L01,#64 [FALSE] L0003
  6067.        PRINT           "  "
  6068.        JUMP            L0004
  6069. L0003: JL              L01,#03e8 [FALSE] L0004
  6070.        PRINT           " "
  6071. L0004: PRINT_NUM       L00
  6072.        PRINT           " "
  6073.        RTRUE           
  6074.  
  6075. Routine R0142, 1 local
  6076.     Action routine for:
  6077.         "full"
  6078.         "full score"
  6079.  
  6080.        CALL_1N         R0139
  6081.        JZ              G0d [TRUE] RFALSE
  6082.        JZ              #01 [FALSE] RFALSE
  6083.        NEW_LINE        
  6084.        CALL_VN         R0236 (#0d,#01)
  6085.        STORE           L00,#00
  6086. L0001: JL              L00,#01 [FALSE] L0003
  6087.        LOADB           #2e41,L00 -> -(SP)
  6088.        JE              (SP)+,#01 [FALSE] L0002
  6089.        LOADB           #2e3d,L00 -> -(SP)
  6090.        CALL_2N         R0141 ((SP)+)
  6091.        CALL_2N         R0300 (L00)
  6092. L0002: INC             L00
  6093.        JUMP            L0001
  6094. L0003: JZ              G11 [TRUE] L0004
  6095.        CALL_2N         R0141 (G11)
  6096.        CALL_VN         R0236 (#0d,#02)
  6097. L0004: JZ              G10 [TRUE] L0005
  6098.        CALL_2N         R0141 (G10)
  6099.        CALL_VN         R0236 (#0d,#03)
  6100. L0005: NEW_LINE        
  6101.        CALL_2N         R0141 (G0d)
  6102.        CALL_VN         R0236 (#0d,#04)
  6103.        RTRUE           
  6104.  
  6105. Routine R0143, 0 locals
  6106.     Action routine for:
  6107.         "i wide"
  6108.  
  6109.        STORE           G1f,#1c
  6110.        CALL_2N         R0075 (#0e)
  6111.        RTRUE           
  6112.  
  6113. Routine R0144, 0 locals
  6114.     Action routine for:
  6115.         "i tall"
  6116.  
  6117.        STORE           G1f,#17
  6118.        CALL_2N         R0075 (#0e)
  6119.        RTRUE           
  6120.  
  6121. Routine R0145, 1 local
  6122.     Action routine for:
  6123.         "carry inventory"
  6124.         "i"
  6125.  
  6126.        GET_CHILD       G12 -> -(SP) [FALSE] L0001
  6127. L0001: JZ              (SP)+ [FALSE] L0002
  6128.        CALL_VS         R0236 (#0e,#01) -> -(SP)
  6129.        RET_POPPED      
  6130. L0002: JZ              G1f [FALSE] L0003
  6131.        CALL_1S         R0144 -> -(SP)
  6132.        RET_POPPED      
  6133. L0003: CALL_VN         R0236 (#0e,#02)
  6134.        AND             G1f,#01 -> -(SP)
  6135.        JZ              (SP)+ [TRUE] L0004
  6136.        PRINT           ":
  6137. "
  6138.        JUMP            L0005
  6139. L0004: PRINT           " "
  6140. L0005: GET_CHILD       G12 -> -(SP) [FALSE] L0006
  6141. L0006: CALL_VN         R0120 ((SP)+,G1f,#01)
  6142.        AND             G1f,#08 -> -(SP)
  6143.        JZ              (SP)+ [TRUE] L0007
  6144.        PRINT           ".
  6145. "
  6146. L0007: GET_CHILD       G12 -> -(SP) [FALSE] L0008
  6147. L0008: PULL            L00
  6148.        JZ              L00 [TRUE] L0010
  6149. L0009: CALL_2N         R0071 (L00)
  6150.        GET_SIBLING     L00 -> L00 [TRUE] L0009
  6151. L0010: CALL_1N         R0079
  6152.        RTRUE           
  6153.  
  6154. Routine R0146, 4 locals
  6155.  
  6156.        STORE           L02,L00
  6157. L0001: JZ              L02 [TRUE] L0005
  6158.        STORE           L03,L01
  6159. L0002: JZ              L03 [TRUE] L0004
  6160.        JE              L03,L02 [FALSE] L0003
  6161.        RET             L02
  6162. L0003: GET_PARENT      L03 -> L03
  6163.        JUMP            L0002
  6164. L0004: GET_PARENT      L02 -> L02
  6165.        JUMP            L0001
  6166. L0005: RFALSE          
  6167.  
  6168. Routine R0147, 2 locals
  6169.  
  6170. L0001: JZ              L01 [TRUE] L0002
  6171.        JE              L00,L01 [TRUE] RTRUE
  6172.        GET_PARENT      L01 -> L01
  6173.        JUMP            L0001
  6174. L0002: RFALSE          
  6175.  
  6176. Routine R0148, 5 locals
  6177.  
  6178.        CALL_VS         R0146 (G12,L00) -> L03
  6179.        JE              G12,L03 [TRUE] L0003
  6180.        GET_PARENT      G12 -> L04
  6181. L0001: JE              L04,L03 [TRUE] L0003
  6182.        TEST_ATTR       L04,#04 [FALSE] L0002
  6183.        TEST_ATTR       L04,#0e [TRUE] L0002
  6184.        JZ              L01 [FALSE] RTRUE
  6185.        CALL_VS         R0236 (#0f,#09,L04) -> -(SP)
  6186.        RET_POPPED      
  6187. L0002: GET_PARENT      L04 -> L04
  6188.        JUMP            L0001
  6189. L0003: JE              L00,L03 [TRUE] L0009
  6190.        GET_PARENT      L00 -> L04
  6191. L0004: JE              L04,L03 [TRUE] L0009
  6192.        JZ              L02 [TRUE] L0007
  6193.        TEST_ATTR       L04,#04 [TRUE] L0007
  6194.        TEST_ATTR       L04,#14 [TRUE] L0007
  6195.        TEST_ATTR       L04,#00 [FALSE] L0005
  6196.        JZ              L01 [FALSE] RTRUE
  6197.        CALL_VS         R0236 (#0f,#06,L04) -> -(SP)
  6198.        RET_POPPED      
  6199. L0005: TEST_ATTR       L04,#17 [FALSE] L0006
  6200.        JZ              L01 [FALSE] RTRUE
  6201.        CALL_VS         R0236 (#0f,#07,L04) -> -(SP)
  6202.        RET_POPPED      
  6203. L0006: JZ              L01 [FALSE] RTRUE
  6204.        CALL_VS         R0236 (#0f,#08,L00) -> -(SP)
  6205.        RET_POPPED      
  6206. L0007: TEST_ATTR       L04,#04 [FALSE] L0008
  6207.        TEST_ATTR       L04,#0e [TRUE] L0008
  6208.        JZ              L01 [FALSE] RTRUE
  6209.        CALL_VS         R0236 (#0f,#09,L04) -> -(SP)
  6210.        RET_POPPED      
  6211. L0008: GET_PARENT      L04 -> L04
  6212.        JUMP            L0004
  6213. L0009: RFALSE          
  6214.  
  6215. Routine R0149, 6 locals
  6216.  
  6217.        JE              L00,G12 [FALSE] L0001
  6218.        CALL_VS         R0236 (#0f,#02) -> -(SP)
  6219.        RET_POPPED      
  6220. L0001: TEST_ATTR       L00,#00 [FALSE] L0002
  6221.        CALL_VS         R0236 (#0f,#03,L00) -> -(SP)
  6222.        RET_POPPED      
  6223. L0002: CALL_VS         R0146 (G12,L00) -> L01
  6224.        JZ              L01 [FALSE] L0003
  6225.        CALL_VS         R0236 (#0f,#08,L00) -> -(SP)
  6226.        RET_POPPED      
  6227. L0003: JE              L01,L00 [FALSE] L0004
  6228.        CALL_VS         R0236 (#0f,#04,L00) -> -(SP)
  6229.        RET_POPPED      
  6230. L0004: JIN             L00,G12 [FALSE] L0005
  6231.        CALL_VS         R0236 (#0f,#05,L00) -> -(SP)
  6232.        RET_POPPED      
  6233. L0005: CALL_VS         R0148 (L00,#00,#01) -> -(SP)
  6234.        JZ              (SP)+ [TRUE] L0006
  6235.        RTRUE           
  6236. L0006: GET_PARENT      L00 -> L03
  6237.        JE              L03,L01 [TRUE] L0009
  6238.        TEST_ATTR       L03,#04 [TRUE] L0007
  6239.        TEST_ATTR       L03,#14 [FALSE] L0009
  6240. L0007: STORE           L02,L03
  6241.        STORE           L05,G27
  6242.        STORE           G27,#1000
  6243.        CALL_VS         R0084 (L03,#04) -> -(SP)
  6244.        JZ              (SP)+ [TRUE] L0008
  6245.        STORE           G27,L05
  6246.        RTRUE           
  6247. L0008: STORE           G27,L05
  6248. L0009: TEST_ATTR       L00,#11 [FALSE] L0010
  6249.        CALL_VS         R0236 (#0f,#0a,L00) -> -(SP)
  6250.        RET_POPPED      
  6251. L0010: TEST_ATTR       L00,#13 [FALSE] L0011
  6252.        CALL_VS         R0236 (#0f,#0b,L00) -> -(SP)
  6253.        RET_POPPED      
  6254. L0011: STORE           L05,#00
  6255.        GET_CHILD       G12 -> -(SP) [FALSE] L0012
  6256. L0012: PULL            L04
  6257.        JZ              L04 [TRUE] L0015
  6258. L0013: TEST_ATTR       L04,#1a [TRUE] L0014
  6259.        INC             L05
  6260. L0014: GET_SIBLING     L04 -> L04 [TRUE] L0013
  6261. L0015: CALL_VS         R0083 (G12,#2d) -> -(SP)
  6262.        JL              L05,(SP)+ [TRUE] L0024
  6263.        JZ              #00 [TRUE] L0023
  6264.        GET_PARENT      #00 -> -(SP)
  6265.        JE              (SP)+,G12 [TRUE] L0016
  6266.        CALL_VS         R0236 (#0f,#0c) -> -(SP)
  6267.        RET_POPPED      
  6268. L0016: STORE           L04,#00
  6269.        GET_CHILD       G12 -> -(SP) [FALSE] L0017
  6270. L0017: PULL            L05
  6271.        JZ              L05 [TRUE] L0020
  6272. L0018: JZ              L05 [TRUE] L0019
  6273.        TEST_ATTR       L05,#1a [TRUE] L0019
  6274.        TEST_ATTR       L05,#09 [TRUE] L0019
  6275.        STORE           L04,L05
  6276. L0019: GET_SIBLING     L05 -> L05 [TRUE] L0018
  6277. L0020: JZ              L04 [TRUE] L0021
  6278.        CALL_VN         R0236 (#0f,#0d,L04)
  6279.        STORE           G2c,#01
  6280.        CALL_VN         R0075 (#13,L04,#00)
  6281.        STORE           G2c,#00
  6282.        JIN             L04,#00 [FALSE] RTRUE
  6283.        JUMP            L0022
  6284. L0021: CALL_VS         R0236 (#0f,#0c) -> -(SP)
  6285.        RET_POPPED      
  6286. L0022: JUMP            L0024
  6287. L0023: CALL_VS         R0236 (#0f,#0c) -> -(SP)
  6288.        RET_POPPED      
  6289. L0024: INSERT_OBJ      L00,G12
  6290.        JZ              L02 [TRUE] L0026
  6291.        STORE           L05,G27
  6292.        STORE           G27,#1000
  6293.        CALL_VS         R0084 (L02,#05) -> -(SP)
  6294.        JZ              (SP)+ [TRUE] L0025
  6295.        STORE           G27,L05
  6296.        RTRUE           
  6297. L0025: STORE           G27,L05
  6298. L0026: RFALSE          
  6299.  
  6300. Routine R0150, 0 locals
  6301.     Action routine for:
  6302.         "carry multi"
  6303.         "get multi"
  6304.         "pick up multi"
  6305.         "pick multi up"
  6306.         "remove multi"
  6307.         "peel noun"
  6308.         "peel off noun"
  6309.  
  6310.        JZ              G3f [TRUE] L0001
  6311.        JIN             G2a,G12 [TRUE] L0002
  6312. L0001: CALL_2S         R0149 (G2a) -> -(SP)
  6313.        JZ              (SP)+ [FALSE] RTRUE
  6314. L0002: CALL_1S         R0079 -> -(SP)
  6315.        JE              (SP)+,#01 [TRUE] RTRUE
  6316.        STORE           G3e,G3f
  6317.        JE              G3e,#01 [TRUE] RTRUE
  6318.        JE              G2c,#01 [TRUE] RTRUE
  6319.        CALL_VN         R0236 (#0f,#01)
  6320.        RTRUE           
  6321.  
  6322. Routine R0151, 1 local
  6323.     Action routine for:
  6324.         "carry multiinside from noun"
  6325.         "carry multiinside off noun"
  6326.         "get multiinside from noun"
  6327.         "remove multiinside from noun"
  6328.  
  6329.        GET_PARENT      G2a -> L00
  6330.        TEST_ATTR       L00,#04 [FALSE] L0001
  6331.        TEST_ATTR       L00,#0e [TRUE] L0001
  6332.        CALL_VS         R0236 (#11,#01,G2a) -> -(SP)
  6333.        RET_POPPED      
  6334. L0001: JE              L00,G2b [TRUE] L0002
  6335.        CALL_VS         R0236 (#11,#02,G2a) -> -(SP)
  6336.        RET_POPPED      
  6337. L0002: TEST_ATTR       L00,#00 [FALSE] L0003
  6338.        CALL_VS         R0236 (#0f,#06,L00) -> -(SP)
  6339.        RET_POPPED      
  6340. L0003: CALL_2S         R0149 (G2a) -> -(SP)
  6341.        JZ              (SP)+ [FALSE] RTRUE
  6342.        STORE           G27,#0f
  6343.        CALL_1S         R0079 -> -(SP)
  6344.        JE              (SP)+,#01 [TRUE] RTRUE
  6345.        STORE           G27,#11
  6346.        CALL_1S         R0079 -> -(SP)
  6347.        JE              (SP)+,#01 [TRUE] RTRUE
  6348.        JE              G2c,#01 [TRUE] RTRUE
  6349.        CALL_VS         R0236 (#11,#03,G2a) -> -(SP)
  6350.        RET_POPPED      
  6351.  
  6352. Routine R0152, 0 locals
  6353.     Action routine for:
  6354.         "put down multiheld"
  6355.         "put multiheld down"
  6356.         "discard multiheld"
  6357.  
  6358.        GET_PARENT      G12 -> -(SP)
  6359.        JIN             G2a,(SP)+ [FALSE] L0001
  6360.        CALL_VS         R0236 (#10,#01,G2a) -> -(SP)
  6361.        RET_POPPED      
  6362. L0001: JIN             G2a,G12 [TRUE] L0002
  6363.        CALL_VS         R0236 (#10,#02,G2a) -> -(SP)
  6364.        RET_POPPED      
  6365. L0002: TEST_ATTR       G2a,#1a [FALSE] L0003
  6366.        CALL_VN         R0236 (#10,#03,G2a)
  6367.        CALL_VN         R0075 (#29,G2a)
  6368.        TEST_ATTR       G2a,#1a [TRUE] RTRUE
  6369. L0003: GET_PARENT      G12 -> -(SP)
  6370.        INSERT_OBJ      G2a,(SP)+
  6371.        CALL_1S         R0079 -> -(SP)
  6372.        JE              (SP)+,#01 [TRUE] RTRUE
  6373.        JE              G2c,#01 [TRUE] RTRUE
  6374.        CALL_VS         R0236 (#10,#04,G2a) -> -(SP)
  6375.        RET_POPPED      
  6376.  
  6377. Routine R0153, 1 local
  6378.     Action routine for:
  6379.         "put multiexcept on / onto noun"
  6380.         "discard multiexcept on / onto noun"
  6381.  
  6382.        STORE           G2e,#12
  6383.        JE              G2b,#10 [TRUE] L0001
  6384.        JIN             G12,G2b [FALSE] L0002
  6385. L0001: CALL_VN         R0075 (#10,G2a)
  6386.        RTRUE           
  6387. L0002: GET_PARENT      G2a -> -(SP)
  6388.        JE              (SP)+,G12 [TRUE] L0003
  6389.        CALL_VS         R0236 (#12,#01,G2a) -> -(SP)
  6390.        RET_POPPED      
  6391. L0003: CALL_VS         R0146 (G2a,G2b) -> L00
  6392.        JE              L00,G2a [FALSE] L0004
  6393.        CALL_VS         R0236 (#12,#02,G2a) -> -(SP)
  6394.        RET_POPPED      
  6395. L0004: CALL_2S         R0148 (G2b) -> -(SP)
  6396.        JZ              (SP)+ [TRUE] L0005
  6397.        RTRUE           
  6398. L0005: JE              G2b,L00 [TRUE] L0007
  6399.        STORE           G27,#1001
  6400.        CALL_VS         R0084 (G2b,#04) -> -(SP)
  6401.        JZ              (SP)+ [TRUE] L0006
  6402.        STORE           G27,#12
  6403.        RTRUE           
  6404. L0006: STORE           G27,#12
  6405. L0007: TEST_ATTR       G2b,#14 [TRUE] L0008
  6406.        CALL_VS         R0236 (#12,#03,G2b) -> -(SP)
  6407.        RET_POPPED      
  6408. L0008: JE              L00,G12 [FALSE] L0009
  6409.        CALL_VS         R0236 (#12,#04) -> -(SP)
  6410.        RET_POPPED      
  6411. L0009: TEST_ATTR       G2a,#1a [FALSE] L0010
  6412.        CALL_VN         R0236 (#12,#05,G2a)
  6413.        CALL_VN         R0075 (#29,G2a)
  6414.        TEST_ATTR       G2a,#1a [FALSE] L0010
  6415.        RTRUE           
  6416. L0010: CALL_VS         R0083 (G2b,#2d) -> -(SP)
  6417.        STORE           Gef,#00
  6418.        GET_CHILD       G2b -> -(SP) [FALSE] L0012
  6419. L0011: INC             Gef
  6420.        GET_SIBLING     (SP)+ -> -(SP) [TRUE] L0011
  6421. L0012: PULL            Gee
  6422.        PUSH            Gef
  6423.        JL              (SP)+,(SP)+ [TRUE] L0013
  6424.        CALL_VS         R0236 (#12,#06,G2b) -> -(SP)
  6425.        RET_POPPED      
  6426. L0013: INSERT_OBJ      G2a,G2b
  6427.        CALL_1S         R0079 -> -(SP)
  6428.        JE              (SP)+,#01 [FALSE] L0014
  6429.        RTRUE           
  6430. L0014: JE              G2b,L00 [TRUE] L0016
  6431.        STORE           G27,#1001
  6432.        CALL_VS         R0084 (G2b,#05) -> -(SP)
  6433.        JZ              (SP)+ [TRUE] L0015
  6434.        STORE           G27,#12
  6435.        RTRUE           
  6436. L0015: STORE           G27,#12
  6437. L0016: JE              G2c,#01 [FALSE] L0017
  6438.        RTRUE           
  6439. L0017: JE              G37,#01 [FALSE] L0018
  6440.        CALL_VS         R0236 (#12,#07) -> -(SP)
  6441.        RET_POPPED      
  6442. L0018: CALL_VN         R0236 (#12,#08,G2a)
  6443.        RTRUE           
  6444.  
  6445. Routine R0154, 1 local
  6446.     Action routine for:
  6447.         "put multiexcept in / inside / into noun"
  6448.         "insert multiexcept in / into noun"
  6449.         "discard multiexcept in / into / down noun"
  6450.  
  6451.        STORE           G2e,#13
  6452.        JE              G2b,#10 [TRUE] L0001
  6453.        JIN             G12,G2b [FALSE] L0002
  6454. L0001: CALL_VN         R0075 (#10,G2a)
  6455.        RTRUE           
  6456. L0002: GET_PARENT      G2a -> -(SP)
  6457.        JE              (SP)+,G12 [TRUE] L0003
  6458.        CALL_VS         R0236 (#13,#01,G2a) -> -(SP)
  6459.        RET_POPPED      
  6460. L0003: CALL_VS         R0146 (G2a,G2b) -> L00
  6461.        JE              L00,G2a [FALSE] L0004
  6462.        CALL_VS         R0236 (#13,#05,G2a) -> -(SP)
  6463.        RET_POPPED      
  6464. L0004: CALL_2S         R0148 (G2b) -> -(SP)
  6465.        JZ              (SP)+ [TRUE] L0005
  6466.        RTRUE           
  6467. L0005: JE              G2b,L00 [TRUE] L0007
  6468.        STORE           G27,#1001
  6469.        CALL_VS         R0084 (G2b,#04) -> -(SP)
  6470.        JZ              (SP)+ [TRUE] L0006
  6471.        STORE           G27,#13
  6472.        RTRUE           
  6473. L0006: STORE           G27,#13
  6474.        TEST_ATTR       G2b,#04 [FALSE] L0007
  6475.        TEST_ATTR       G2b,#0e [TRUE] L0007
  6476.        CALL_VS         R0236 (#13,#03,G2b) -> -(SP)
  6477.        RET_POPPED      
  6478. L0007: TEST_ATTR       G2b,#04 [TRUE] L0008
  6479.        CALL_VS         R0236 (#13,#02,G2b) -> -(SP)
  6480.        RET_POPPED      
  6481. L0008: TEST_ATTR       G2a,#1a [FALSE] L0009
  6482.        CALL_VN         R0236 (#13,#06,G2a)
  6483.        CALL_VN         R0075 (#29,G2a)
  6484.        TEST_ATTR       G2a,#1a [FALSE] L0009
  6485.        RTRUE           
  6486. L0009: CALL_VS         R0083 (G2b,#2d) -> -(SP)
  6487.        STORE           Gef,#00
  6488.        GET_CHILD       G2b -> -(SP) [FALSE] L0011
  6489. L0010: INC             Gef
  6490.        GET_SIBLING     (SP)+ -> -(SP) [TRUE] L0010
  6491. L0011: PULL            Gee
  6492.        PUSH            Gef
  6493.        JL              (SP)+,(SP)+ [TRUE] L0012
  6494.        CALL_VS         R0236 (#13,#07,G2b) -> -(SP)
  6495.        RET_POPPED      
  6496. L0012: INSERT_OBJ      G2a,G2b
  6497.        CALL_1S         R0079 -> -(SP)
  6498.        JE              (SP)+,#01 [TRUE] RTRUE
  6499.        JE              G2b,L00 [TRUE] L0014
  6500.        STORE           G27,#1001
  6501.        CALL_VS         R0084 (G2b,#05) -> -(SP)
  6502.        JZ              (SP)+ [TRUE] L0013
  6503.        STORE           G27,#13
  6504.        RTRUE           
  6505. L0013: STORE           G27,#13
  6506. L0014: JE              G2c,#01 [TRUE] RTRUE
  6507.        JE              G37,#01 [FALSE] L0015
  6508.        CALL_VS         R0236 (#13,#08,G2a) -> -(SP)
  6509.        RET_POPPED      
  6510. L0015: CALL_VN         R0236 (#13,#09,G2a)
  6511.        RTRUE           
  6512.  
  6513. Routine R0155, 0 locals
  6514.     Action routine for:
  6515.         "transfer noun to noun"
  6516.         "clear noun to noun"
  6517.  
  6518.        JIN             G2a,G12 [TRUE] L0001
  6519.        CALL_2S         R0149 (G2a) -> -(SP)
  6520.        JZ              (SP)+ [TRUE] L0001
  6521.        RTRUE           
  6522. L0001: TEST_ATTR       G2b,#04 [FALSE] L0002
  6523.        CALL_VN         R0075 (#13,G2a,G2b)
  6524.        RTRUE           
  6525. L0002: TEST_ATTR       G2b,#14 [FALSE] L0003
  6526.        CALL_VN         R0075 (#12,G2a,G2b)
  6527.        RTRUE           
  6528. L0003: CALL_VN         R0075 (#10,G2a)
  6529.        RTRUE           
  6530.  
  6531. Routine R0156, 0 locals
  6532.     Action routine for:
  6533.         "empty noun"
  6534.         "empty out noun"
  6535.         "empty noun out"
  6536.  
  6537.        STORE           G2b,#10
  6538.        CALL_1N         R0157
  6539.        RTRUE           
  6540.  
  6541. Routine R0157, 2 locals
  6542.     Action routine for:
  6543.         "empty noun to / into / on / onto noun"
  6544.  
  6545.        CALL_2S         R0148 (G2a) -> -(SP)
  6546.        JZ              (SP)+ [TRUE] L0001
  6547.        RTRUE           
  6548. L0001: TEST_ATTR       G2a,#04 [TRUE] L0002
  6549.        CALL_VS         R0236 (#14,#01,G2a) -> -(SP)
  6550.        RET_POPPED      
  6551. L0002: TEST_ATTR       G2a,#0e [TRUE] L0003
  6552.        CALL_VS         R0236 (#14,#02,G2a) -> -(SP)
  6553.        RET_POPPED      
  6554. L0003: JE              G2b,#10 [TRUE] L0005
  6555.        TEST_ATTR       G2b,#04 [TRUE] L0004
  6556.        CALL_VS         R0236 (#14,#01,G2b) -> -(SP)
  6557.        RET_POPPED      
  6558. L0004: TEST_ATTR       G2b,#0e [TRUE] L0005
  6559.        CALL_VS         R0236 (#14,#02,G2b) -> -(SP)
  6560.        RET_POPPED      
  6561. L0005: GET_CHILD       G2a -> L00 [FALSE] L0006
  6562. L0006: JZ              L00 [FALSE] L0007
  6563.        CALL_VS         R0236 (#14,#03,G2a) -> -(SP)
  6564.        RET_POPPED      
  6565. L0007: JZ              L00 [TRUE] L0009
  6566.        GET_SIBLING     L00 -> L01 [FALSE] L0008
  6567. L0008: CALL_2N         R0104 (L00)
  6568.        PRINT           ": "
  6569.        CALL_VN         R0075 (#5d,L00,G2b)
  6570.        STORE           L00,L01
  6571.        JUMP            L0007
  6572. L0009: RTRUE           
  6573.  
  6574. Routine R0158, 0 locals
  6575.     Action routine for:
  6576.         "feed held to creature"
  6577.         "feed creature held" REVERSE
  6578.         "feed over held to creature"
  6579.  
  6580.        GET_PARENT      G2a -> -(SP)
  6581.        JE              (SP)+,G12 [TRUE] L0001
  6582.        CALL_VS         R0236 (#15,#01,G2a) -> -(SP)
  6583.        RET_POPPED      
  6584. L0001: JE              G2b,G12 [FALSE] L0002
  6585.        CALL_VS         R0236 (#15,#02,G2a) -> -(SP)
  6586.        RET_POPPED      
  6587. L0002: CALL_VS         R0080 (G2b,#15) -> -(SP)
  6588.        JZ              (SP)+ [FALSE] RFALSE
  6589.        CALL_VN         R0236 (#15,#03,G2b)
  6590.        RTRUE           
  6591.  
  6592. Routine R0159, 0 locals
  6593.     Action routine for:
  6594.         
  6595.  
  6596.        CALL_VN         R0075 (#15,G2b,G2a)
  6597.        RTRUE           
  6598.  
  6599. Routine R0160, 0 locals
  6600.     Action routine for:
  6601.         "display creature held" REVERSE
  6602.         "display held to creature"
  6603.  
  6604.        GET_PARENT      G2a -> -(SP)
  6605.        JE              (SP)+,G12 [TRUE] L0001
  6606.        CALL_VS         R0236 (#16,#01,G2a) -> -(SP)
  6607.        RET_POPPED      
  6608. L0001: JE              G2b,G12 [FALSE] L0002
  6609.        CALL_VN         R0075 (#20,G2a)
  6610.        RTRUE           
  6611. L0002: CALL_VS         R0080 (G2b,#16) -> -(SP)
  6612.        JZ              (SP)+ [FALSE] RFALSE
  6613.        CALL_VN         R0236 (#16,#02,G2b)
  6614.        RTRUE           
  6615.  
  6616. Routine R0161, 0 locals
  6617.     Action routine for:
  6618.         
  6619.  
  6620.        CALL_VN         R0075 (#16,G2b,G2a)
  6621.        RTRUE           
  6622.  
  6623. Routine R0162, 3 locals
  6624.     Action routine for:
  6625.         "get in / into / on / onto noun"
  6626.         "stand on noun"
  6627.         "go noun"
  6628.         "go into / in / inside / through noun"
  6629.         "leave into / in / inside / through noun"
  6630.         "cross noun"
  6631.         "lie on top of noun"
  6632.         "lie on / in / inside noun"
  6633.  
  6634.        TEST_ATTR       G2a,#05 [TRUE] L0001
  6635.        JIN             G2a,"compass" [FALSE] L0002
  6636. L0001: CALL_VN         R0075 (#1b,G2a)
  6637.        RTRUE           
  6638. L0002: JIN             G12,G2a [FALSE] L0003
  6639.        CALL_VS         R0236 (#17,#01,G2a) -> -(SP)
  6640.        RET_POPPED      
  6641. L0003: TEST_ATTR       G2a,#07 [TRUE] L0004
  6642.        CALL_VS         R0236 (#17,#02,G2a) -> -(SP)
  6643.        RET_POPPED      
  6644. L0004: TEST_ATTR       G2a,#04 [FALSE] L0005
  6645.        TEST_ATTR       G2a,#0e [TRUE] L0005
  6646.        CALL_VS         R0236 (#17,#03,G2a) -> -(SP)
  6647.        RET_POPPED      
  6648. L0005: GET_PARENT      G2a -> -(SP)
  6649.        GET_PARENT      G12 -> -(SP)
  6650.        JE              (SP)+,(SP)+ [TRUE] L0015
  6651.        CALL_VS         R0146 (G12,G2a) -> L00
  6652.        JE              L00,G12,#00 [FALSE] L0006
  6653.        CALL_VS         R0236 (#17,#04,G2a) -> -(SP)
  6654.        RET_POPPED      
  6655. L0006: JIN             G12,L00 [TRUE] L0010
  6656.        GET_PARENT      G12 -> L01
  6657.        GET_PARENT      L01 -> -(SP)
  6658.        JE              (SP)+,L00 [FALSE] L0007
  6659.        JE              G2a,L00 [TRUE] L0008
  6660. L0007: CALL_VN         R0236 (#17,#06,L01)
  6661.        STORE           L02,G2c
  6662.        STORE           G2c,#01
  6663. L0008: CALL_2N         R0075 (#19)
  6664.        STORE           G2c,L02
  6665.        JIN             G12,L01 [FALSE] L0009
  6666.        RTRUE           
  6667. L0009: JUMP            L0006
  6668. L0010: JIN             G12,G2a [FALSE] L0011
  6669.        RTRUE           
  6670. L0011: JIN             G2a,L00 [TRUE] L0015
  6671.        GET_PARENT      G2a -> L01
  6672. L0012: GET_PARENT      L01 -> -(SP)
  6673.        JE              (SP)+,L00 [TRUE] L0013
  6674.        GET_PARENT      L01 -> L01
  6675.        JUMP            L0012
  6676. L0013: CALL_VN         R0236 (#17,#07,L01)
  6677.        STORE           L02,G2c
  6678.        STORE           G2c,#01
  6679.        CALL_VN         R0075 (#17,L01)
  6680.        STORE           G2c,L02
  6681.        JIN             G12,L01 [TRUE] L0014
  6682.        RTRUE           
  6683. L0014: CALL_VN         R0075 (#17,G2a)
  6684.        RTRUE           
  6685. L0015: INSERT_OBJ      G12,G2a
  6686.        CALL_1S         R0079 -> -(SP)
  6687.        JE              (SP)+,#01 [TRUE] RTRUE
  6688.        JE              G2c,#01 [TRUE] RTRUE
  6689.        CALL_VN         R0236 (#17,#05,G2a)
  6690.        CALL_2N         R0169 (G2a)
  6691.        RTRUE           
  6692.  
  6693. Routine R0163, 0 locals
  6694.     Action routine for:
  6695.         "get off noun"
  6696.  
  6697.        GET_PARENT      G12 -> -(SP)
  6698.        JE              (SP)+,G2a [FALSE] L0001
  6699.        CALL_2N         R0075 (#19)
  6700.        RTRUE           
  6701. L0001: CALL_VN         R0236 (#18,#01,G2a)
  6702.        RTRUE           
  6703.  
  6704. Routine R0164, 1 local
  6705.     Action routine for:
  6706.         "get out / off / up"
  6707.         "stand"
  6708.         "stand up"
  6709.         "leave noun"
  6710.         "exit"
  6711.  
  6712.        GET_PARENT      G12 -> L00
  6713.        JE              L00,G00 [TRUE] L0001
  6714.        JE              G00,#13 [FALSE] L0004
  6715.        JE              L00,G15 [FALSE] L0004
  6716. L0001: GET_PROP        G00,#12 -> -(SP)
  6717.        JZ              (SP)+ [FALSE] L0002
  6718.        JE              G00,#13 [FALSE] L0003
  6719.        GET_PROP        G15,#12 -> -(SP)
  6720.        JZ              (SP)+ [TRUE] L0003
  6721. L0002: CALL_VN         R0075 (#1b,#11)
  6722.        RTRUE           
  6723. L0003: CALL_VS         R0236 (#19,#01) -> -(SP)
  6724.        RET_POPPED      
  6725. L0004: TEST_ATTR       L00,#04 [FALSE] L0005
  6726.        TEST_ATTR       L00,#0e [TRUE] L0005
  6727.        CALL_VS         R0236 (#19,#02,L00) -> -(SP)
  6728.        RET_POPPED      
  6729. L0005: GET_PARENT      L00 -> -(SP)
  6730.        INSERT_OBJ      G12,(SP)+
  6731.        CALL_1S         R0079 -> -(SP)
  6732.        JE              (SP)+,#01 [TRUE] RTRUE
  6733.        JE              G2c,#01 [TRUE] RTRUE
  6734.        CALL_VN         R0236 (#19,#03,L00)
  6735.        CALL_2N         R0175 (#01)
  6736.        RTRUE           
  6737.  
  6738. Routine R0165, 0 locals
  6739.     Action routine for:
  6740.         "go"
  6741.         "leave"
  6742.  
  6743.        CALL_2N         R0236 (#1a)
  6744.        RTRUE           
  6745.  
  6746. Routine R0166, 0 locals
  6747.     Action routine for:
  6748.         "cross"
  6749.         "in"
  6750.  
  6751.        CALL_VN         R0075 (#1b,#12)
  6752.        RTRUE           
  6753.  
  6754. Routine R0167, 6 locals
  6755.     Action routine for:
  6756.         "go noun = [parse $44f3]"
  6757.         "leave noun = [parse $44f3]"
  6758.  
  6759.        STORE           L04,#00
  6760.        GET_PARENT      G12 -> L00
  6761.        JE              G00,#13 [TRUE] L0001
  6762.        JE              L00,G00 [FALSE] L0002
  6763. L0001: JE              G00,#13 [FALSE] L0007
  6764.        JE              L00,G15 [TRUE] L0007
  6765. L0002: STORE           L01,G00
  6766.        JE              G00,#13 [FALSE] L0003
  6767.        STORE           G00,G15
  6768. L0003: CALL_VS         R0084 (L00,#04) -> L02
  6769.        JE              L02,#03 [TRUE] L0004
  6770.        STORE           G00,L01
  6771. L0004: JE              L02,#01 [FALSE] L0005
  6772.        STORE           L04,L00
  6773.        GET_PARENT      L00 -> L00
  6774.        JUMP            L0007
  6775. L0005: JZ              L02 [FALSE] L0006
  6776.        CALL_VN         R0236 (#1b,#01,L00)
  6777. L0006: RTRUE           
  6778. L0007: GET_PROP        G2a,#15 -> L05
  6779.        CALL_2S         R0081 (L05) -> -(SP)
  6780.        JE              (SP)+,#02 [FALSE] L0008
  6781.        CALL_VS         R0084 (G2a,#15) -> L05
  6782. L0008: CALL_VS         R0317 (L00,L05) -> L01
  6783.        CALL_2S         R0081 (L01) -> L02
  6784.        JE              L02,#03 [FALSE] L0009
  6785.        PRINT_PADDR     L01
  6786.        NEW_LINE        
  6787.        RFALSE          
  6788. L0009: JE              L02,#02 [FALSE] L0010
  6789.        CALL_VS         R0084 (L00,L05) -> L01
  6790.        JE              L01,#01 [TRUE] RTRUE
  6791. L0010: JZ              L02 [TRUE] L0011
  6792.        JZ              L01 [FALSE] L0013
  6793. L0011: GET_PROP        L00,#26 -> -(SP)
  6794.        JZ              (SP)+ [TRUE] L0012
  6795.        CALL_VN         R0082 (L00,#26)
  6796. L0012: RFALSE          
  6797. L0013: TEST_ATTR       L01,#05 [FALSE] L0021
  6798.        TEST_ATTR       L01,#03 [FALSE] L0014
  6799.        CALL_VS         R0236 (#1b,#02) -> -(SP)
  6800.        RET_POPPED      
  6801. L0014: TEST_ATTR       L01,#0e [TRUE] L0017
  6802.        JE              G2a,#0f [FALSE] L0015
  6803.        CALL_VS         R0236 (#1b,#03,L01) -> -(SP)
  6804.        RET_POPPED      
  6805. L0015: JE              G2a,#10 [FALSE] L0016
  6806.        CALL_VS         R0236 (#1b,#04,L01) -> -(SP)
  6807.        RET_POPPED      
  6808. L0016: CALL_VS         R0236 (#1b,#05,L01) -> -(SP)
  6809.        RET_POPPED      
  6810. L0017: GET_PROP        L01,#13 -> -(SP)
  6811.        CALL_2S         R0081 ((SP)+) -> -(SP)
  6812.        JE              (SP)+,#02 [FALSE] L0018
  6813.        CALL_VS         R0084 (L01,#13) -> L01
  6814.        JUMP            L0020
  6815. L0018: GET_PROP        L01,#13 -> -(SP)
  6816.        JZ              (SP)+ [FALSE] L0019
  6817.        CALL_VS         R0236 (#1b,#06,L01) -> -(SP)
  6818.        RET_POPPED      
  6819. L0019: GET_PROP        L01,#13 -> L01
  6820. L0020: JE              L01,#01 [TRUE] RTRUE
  6821. L0021: JZ              L04 [FALSE] L0022
  6822.        INSERT_OBJ      G12,L01
  6823.        JUMP            L0023
  6824. L0022: INSERT_OBJ      L04,L01
  6825. L0023: CALL_2S         R0094 (L01) -> L03
  6826.        JZ              L03 [TRUE] L0024
  6827.        STORE           G00,L01
  6828.        STORE           G14,#01
  6829.        JUMP            L0026
  6830. L0024: JE              G00,#13 [FALSE] L0025
  6831.        CALL_1N         R0292
  6832.        JZ              G13 [FALSE] RTRUE
  6833. L0025: STORE           G15,L01
  6834.        STORE           G00,#13
  6835.        STORE           G14,#00
  6836. L0026: CALL_1S         R0079 -> -(SP)
  6837.        JE              (SP)+,#01 [TRUE] RTRUE
  6838.        JE              G2c,#01 [TRUE] RTRUE
  6839.        CALL_2N         R0175 (#01)
  6840.        RTRUE           
  6841.  
  6842. Routine R0168, 3 locals
  6843.  
  6844.        GET_PARENT      G12 -> -(SP)
  6845.        JE              L00,(SP)+ [TRUE] RFALSE
  6846.        GET_CHILD       L00 -> -(SP) [FALSE] L0001
  6847. L0001: PULL            L01
  6848.        JZ              L01 [TRUE] L0004
  6849. L0002: TEST_ATTR       L01,#03 [TRUE] L0003
  6850.        TEST_ATTR       L01,#11 [TRUE] L0003
  6851.        STORE           L02,#01
  6852. L0003: GET_SIBLING     L01 -> L01 [TRUE] L0002
  6853. L0004: JZ              L02 [TRUE] RFALSE
  6854.        CALL_VN         R0236 (#1f,#04,L00)
  6855.        RTRUE           
  6856.  
  6857. Routine R0169, 9 locals
  6858.  
  6859.        GET_CHILD       L00 -> -(SP) [FALSE] L0001
  6860. L0001: PULL            L03
  6861.        JZ              L03 [TRUE] L0003
  6862. L0002: CLEAR_ATTR      L03,#19
  6863.        GET_SIBLING     L03 -> L03 [TRUE] L0002
  6864. L0003: STORE           L05,#00
  6865.        GET_CHILD       L00 -> -(SP) [FALSE] L0004
  6866. L0004: PULL            L03
  6867.        JZ              L03 [TRUE] L0019
  6868. L0005: TEST_ATTR       L03,#03 [TRUE] L0018
  6869.        GET_PARENT      G12 -> -(SP)
  6870.        JE              L03,(SP)+ [TRUE] L0018
  6871.        CALL_2N         R0071 (L03)
  6872.        TEST_ATTR       L03,#11 [TRUE] L0016
  6873.        SET_ATTR        L03,#19
  6874.        INC             L05
  6875.        STORE           L04,#1e
  6876.        STORE           L08,#00
  6877.        TEST_ATTR       L03,#05 [TRUE] L0006
  6878.        TEST_ATTR       L03,#04 [FALSE] L0007
  6879. L0006: TEST_ATTR       L03,#0e [FALSE] L0007
  6880.        CALL_VS         R0321 (L03,#1f) -> -(SP)
  6881.        JZ              (SP)+ [TRUE] L0007
  6882.        STORE           L04,#1f
  6883.        STORE           L08,#01
  6884.        JUMP            L0011
  6885. L0007: TEST_ATTR       L03,#05 [TRUE] L0008
  6886.        TEST_ATTR       L03,#04 [FALSE] L0009
  6887. L0008: TEST_ATTR       L03,#0e [TRUE] L0009
  6888.        CALL_VS         R0321 (L03,#20) -> -(SP)
  6889.        JZ              (SP)+ [TRUE] L0009
  6890.        STORE           L04,#20
  6891.        STORE           L08,#01
  6892.        JUMP            L0011
  6893. L0009: TEST_ATTR       L03,#15 [FALSE] L0010
  6894.        TEST_ATTR       L03,#0d [FALSE] L0010
  6895.        CALL_VS         R0321 (L03,#21) -> -(SP)
  6896.        JZ              (SP)+ [TRUE] L0010
  6897.        STORE           L04,#21
  6898.        STORE           L08,#01
  6899.        JUMP            L0011
  6900. L0010: TEST_ATTR       L03,#15 [FALSE] L0011
  6901.        TEST_ATTR       L03,#0d [TRUE] L0011
  6902.        CALL_VS         R0321 (L03,#22) -> -(SP)
  6903.        JZ              (SP)+ [TRUE] L0011
  6904.        STORE           L04,#22
  6905.        STORE           L08,#01
  6906. L0011: TEST_ATTR       L03,#0c [FALSE] L0012
  6907.        GET_PROP        L03,#24 -> -(SP)
  6908.        JE              (SP)+,#ffff [FALSE] L0012
  6909.        JE              L08,#01 [FALSE] L0015
  6910. L0012: GET_PROP        L03,#24 -> -(SP)
  6911.        JE              (SP)+,#ffff [TRUE] L0013
  6912.        CALL_VS         R0084 (L03,#24) -> -(SP)
  6913.        JZ              (SP)+ [TRUE] L0013
  6914.        STORE           L07,#01
  6915.        CLEAR_ATTR      L03,#19
  6916.        DEC             L05
  6917.        JUMP            L0015
  6918. L0013: CALL_VS         R0317 (L03,L04) -> L06
  6919.        JZ              L06 [TRUE] L0015
  6920.        NEW_LINE        
  6921.        CALL_VN         R0082 (L03,L04)
  6922.        STORE           L07,#01
  6923.        CLEAR_ATTR      L03,#19
  6924.        DEC             L05
  6925.        TEST_ATTR       L03,#14 [FALSE] L0015
  6926.        GET_CHILD       L03 -> -(SP) [FALSE] L0014
  6927. L0014: JZ              (SP)+ [TRUE] L0015
  6928.        CALL_2N         R0168 (L03)
  6929. L0015: JUMP            L0018
  6930. L0016: TEST_ATTR       L03,#14 [FALSE] L0018
  6931.        GET_CHILD       L03 -> -(SP) [FALSE] L0017
  6932. L0017: JZ              (SP)+ [TRUE] L0018
  6933.        CALL_2N         R0168 (L03)
  6934. L0018: GET_SIBLING     L03 -> L03 [TRUE] L0005
  6935. L0019: JZ              L05 [FALSE] L0020
  6936.        RFALSE          
  6937. L0020: JZ              L01 [TRUE] L0023
  6938.        NEW_LINE        
  6939.        JE              L07,#01 [FALSE] L0021
  6940.        STORE           L01,L02
  6941. L0021: PRINT_PADDR     L01
  6942.        PRINT           " "
  6943.        GET_CHILD       L00 -> -(SP) [FALSE] L0022
  6944. L0022: CALL_VN         R0120 ((SP)+,#0ad8)
  6945.        RET             L05
  6946. L0023: JE              L07,#01 [FALSE] L0024
  6947.        CALL_VN         R0236 (#1f,#05,L00)
  6948.        JUMP            L0025
  6949. L0024: CALL_VN         R0236 (#1f,#06,L00)
  6950. L0025: RTRUE           
  6951.  
  6952. Routine R0170, 0 locals
  6953.     Action routine for:
  6954.         "brief"
  6955.  
  6956.        STORE           G16,#01
  6957.        PRINT_PADDR     S001
  6958.        CALL_2N         R0236 (#1c)
  6959.        RTRUE           
  6960.  
  6961. Routine R0171, 0 locals
  6962.     Action routine for:
  6963.         "long"
  6964.  
  6965.        STORE           G16,#02
  6966.        PRINT_PADDR     S001
  6967.        CALL_2N         R0236 (#1d)
  6968.        RTRUE           
  6969.  
  6970. Routine R0172, 0 locals
  6971.     Action routine for:
  6972.         "short"
  6973.  
  6974.        STORE           G16,#03
  6975.        PRINT_PADDR     S001
  6976.        CALL_2N         R0236 (#1e)
  6977.        RTRUE           
  6978.  
  6979. Routine R0173, 1 local
  6980.  
  6981.        STORE           L00,G00
  6982.        JE              L00,G18 [TRUE] L0002
  6983.        GET_PROP        L00,#1e -> -(SP)
  6984.        JZ              (SP)+ [TRUE] L0001
  6985.        CALL_VN         R0082 (L00,#1e)
  6986. L0001: CALL_1N         R0293
  6987.        CALL_1N         R0124
  6988.        STORE           G18,L00
  6989. L0002: RTRUE           
  6990.  
  6991. Routine R0174, 0 locals
  6992.  
  6993.        TEST_ATTR       G00,#18 [TRUE] L0001
  6994.        SET_ATTR        G00,#18
  6995.        TEST_ATTR       G00,#12 [FALSE] L0001
  6996.        ADD             G0d,#05 -> G0d
  6997.        ADD             G10,#05 -> G10
  6998. L0001: RTRUE           
  6999.  
  7000. Routine R0175, 6 locals
  7001.     Action routine for:
  7002.         "l"
  7003.  
  7004.        GET_PARENT      G12 -> -(SP)
  7005.        JZ              (SP)+ [FALSE] L0001
  7006.        CALL_2S         R0111 (#0a) -> -(SP)
  7007.        RET_POPPED      
  7008. L0001: JE              G00,#13 [FALSE] L0002
  7009.        STORE           L01,#13
  7010.        JUMP            L0006
  7011. L0002: STORE           L02,#01
  7012.        GET_PARENT      G12 -> L01
  7013. L0003: GET_PARENT      L01 -> -(SP)
  7014.        JZ              (SP)+ [TRUE] L0005
  7015.        TEST_ATTR       L01,#04 [FALSE] L0004
  7016.        TEST_ATTR       L01,#0e [TRUE] L0004
  7017.        TEST_ATTR       L01,#17 [FALSE] L0005
  7018. L0004: GET_PARENT      L01 -> L01
  7019.        INC             L02
  7020.        JUMP            L0003
  7021. L0005: JE              L01,G00 [FALSE] L0006
  7022.        CALL_1N         R0173
  7023. L0006: NEW_LINE        
  7024.        SET_TEXT_STYLE  BOLDFACE
  7025.        JZ              L02 [FALSE] L0007
  7026.        CALL_2N         R0104 (#13)
  7027.        JUMP            L0009
  7028. L0007: JE              L01,G00 [TRUE] L0008
  7029.        CALL_2N         R0103 (L01)
  7030.        JUMP            L0009
  7031. L0008: CALL_2N         R0104 (L01)
  7032. L0009: SET_TEXT_STYLE  ROMAN
  7033.        STORE           L04,#01
  7034.        GET_PARENT      G12 -> L03
  7035.        JUMP            L0011
  7036. L0010: INC             L04
  7037.        GET_PARENT      L03 -> L03
  7038. L0011: JL              L04,L02 [FALSE] L0014
  7039.        TEST_ATTR       L03,#14 [FALSE] L0012
  7040.        CALL_VN         R0236 (#1f,#01,L03)
  7041.        JUMP            L0013
  7042. L0012: CALL_VN         R0236 (#1f,#02,L03)
  7043. L0013: JUMP            L0010
  7044. L0014: JE              G17,#01 [FALSE] L0015
  7045.        CALL_VN         R0236 (#1f,#03,G12)
  7046. L0015: NEW_LINE        
  7047.        JL              G16,#03 [FALSE] L0019
  7048.        JE              L01,G00 [FALSE] L0019
  7049.        JE              L00,#01 [FALSE] L0016
  7050.        JE              G16,#02 [TRUE] L0016
  7051.        TEST_ATTR       G00,#18 [TRUE] L0019
  7052. L0016: GET_PROP        G00,#24 -> -(SP)
  7053.        JE              (SP)+,#ffff [TRUE] L0017
  7054.        CALL_VN         R0084 (G00,#24)
  7055.        JUMP            L0019
  7056. L0017: GET_PROP        G00,#23 -> -(SP)
  7057.        JZ              (SP)+ [FALSE] L0018
  7058.        CALL_VN         R0111 (#0b,G00)
  7059.        JUMP            L0019
  7060. L0018: CALL_VN         R0082 (G00,#23)
  7061. L0019: JZ              L02 [FALSE] L0020
  7062.        CALL_2N         R0169 (#13)
  7063.        JUMP            L0025
  7064. L0020: STORE           L04,L02
  7065. L0021: JG              L04,#00 [FALSE] L0025
  7066.        STORE           L03,G12
  7067.        STORE           L05,#00
  7068. L0022: JL              L05,L04 [FALSE] L0023
  7069.        GET_PARENT      L03 -> L03
  7070.        INC             L05
  7071.        JUMP            L0022
  7072. L0023: GET_PROP        L03,#32 -> -(SP)
  7073.        JZ              (SP)+ [TRUE] L0024
  7074.        NEW_LINE        
  7075.        CALL_VN         R0082 (L03,#32)
  7076. L0024: CALL_2N         R0169 (L03)
  7077.        DEC             L04
  7078.        JUMP            L0021
  7079. L0025: CALL_1N         R0294
  7080.        CALL_1N         R0174
  7081.        STORE           G27,#1f
  7082.        CALL_1S         R0079 -> -(SP)
  7083.        JE              (SP)+,#01 [TRUE] RTRUE
  7084.        RTRUE           
  7085.  
  7086. Routine R0176, 1 local
  7087.     Action routine for:
  7088.         "l at noun"
  7089.         "check noun"
  7090.         "read noun"
  7091.  
  7092.        JE              G00,#13 [FALSE] L0001
  7093.        CALL_VS         R0236 (#20,#01) -> -(SP)
  7094.        RET_POPPED      
  7095. L0001: GET_PROP        G2a,#23 -> L00
  7096.        JZ              L00 [FALSE] L0004
  7097.        TEST_ATTR       G2a,#04 [FALSE] L0002
  7098.        CALL_VN         R0075 (#22,G2a)
  7099.        RTRUE           
  7100. L0002: TEST_ATTR       G2a,#15 [FALSE] L0003
  7101.        CALL_VN         R0236 (#20,#03,G2a)
  7102.        RFALSE          
  7103. L0003: CALL_VS         R0236 (#20,#02,G2a) -> -(SP)
  7104.        RET_POPPED      
  7105. L0004: CALL_VN         R0082 (G2a,#23)
  7106.        TEST_ATTR       G2a,#15 [FALSE] L0005
  7107.        CALL_VN         R0236 (#20,#03,G2a)
  7108. L0005: CALL_1S         R0079 -> -(SP)
  7109.        JE              (SP)+,#01 [TRUE] RTRUE
  7110.        RTRUE           
  7111.  
  7112. Routine R0177, 0 locals
  7113.     Action routine for:
  7114.         "l under noun"
  7115.  
  7116.        JE              G00,#13 [FALSE] L0001
  7117.        CALL_VS         R0236 (#21,#01) -> -(SP)
  7118.        RET_POPPED      
  7119. L0001: CALL_VN         R0236 (#21,#02)
  7120.        RTRUE           
  7121.  
  7122. Routine R0178, 2 locals
  7123.     Action routine for:
  7124.         "l inside / in / into / through noun"
  7125.         "search noun"
  7126.  
  7127.        JE              G00,#13 [FALSE] L0001
  7128.        CALL_VS         R0236 (#22,#01,G2a) -> -(SP)
  7129.        RET_POPPED      
  7130. L0001: CALL_2S         R0148 (G2a) -> -(SP)
  7131.        JZ              (SP)+ [TRUE] L0002
  7132.        RTRUE           
  7133. L0002: GET_CHILD       G2a -> -(SP) [FALSE] L0003
  7134. L0003: PULL            L00
  7135.        JZ              L00 [TRUE] L0006
  7136. L0004: TEST_ATTR       L00,#03 [TRUE] L0005
  7137.        TEST_ATTR       L00,#11 [TRUE] L0005
  7138.        STORE           L01,#01
  7139. L0005: GET_SIBLING     L00 -> L00 [TRUE] L0004
  7140. L0006: TEST_ATTR       G2a,#14 [FALSE] L0008
  7141.        JZ              L01 [FALSE] L0007
  7142.        CALL_VS         R0236 (#22,#02,G2a) -> -(SP)
  7143.        RET_POPPED      
  7144. L0007: CALL_VS         R0236 (#22,#03,G2a) -> -(SP)
  7145.        RET_POPPED      
  7146. L0008: TEST_ATTR       G2a,#04 [TRUE] L0009
  7147.        CALL_VS         R0236 (#22,#04,G2a) -> -(SP)
  7148.        RET_POPPED      
  7149. L0009: TEST_ATTR       G2a,#17 [TRUE] L0010
  7150.        TEST_ATTR       G2a,#0e [TRUE] L0010
  7151.        CALL_VS         R0236 (#22,#05,G2a) -> -(SP)
  7152.        RET_POPPED      
  7153. L0010: CALL_1S         R0079 -> -(SP)
  7154.        JE              (SP)+,#01 [TRUE] RTRUE
  7155.        STORE           Gef,#00
  7156.        GET_CHILD       G2a -> -(SP) [FALSE] L0012
  7157. L0011: INC             Gef
  7158.        GET_SIBLING     (SP)+ -> -(SP) [TRUE] L0011
  7159. L0012: PULL            Gee
  7160.        STORE           L00,Gef
  7161.        JZ              L01 [FALSE] L0013
  7162.        CALL_VS         R0236 (#22,#06,G2a) -> -(SP)
  7163.        RET_POPPED      
  7164. L0013: CALL_VN         R0236 (#22,#07,G2a)
  7165.        RTRUE           
  7166.  
  7167. Routine R0179, 0 locals
  7168.     Action routine for:
  7169.         "open noun with held"
  7170.         "unlock noun with held"
  7171.  
  7172.        CALL_2S         R0148 (G2a) -> -(SP)
  7173.        JZ              (SP)+ [TRUE] L0001
  7174.        RTRUE           
  7175. L0001: TEST_ATTR       G2a,#0a [TRUE] L0002
  7176.        CALL_VS         R0236 (#23,#01,G2a) -> -(SP)
  7177.        RET_POPPED      
  7178. L0002: TEST_ATTR       G2a,#0b [TRUE] L0003
  7179.        CALL_VS         R0236 (#23,#02,G2a) -> -(SP)
  7180.        RET_POPPED      
  7181. L0003: GET_PROP        G2a,#14 -> -(SP)
  7182.        JE              (SP)+,G2b [TRUE] L0004
  7183.        CALL_VS         R0236 (#23,#03,G2b) -> -(SP)
  7184.        RET_POPPED      
  7185. L0004: CLEAR_ATTR      G2a,#0b
  7186.        CALL_1S         R0079 -> -(SP)
  7187.        JE              (SP)+,#01 [TRUE] RTRUE
  7188.        JE              G2c,#01 [TRUE] RTRUE
  7189.        CALL_VN         R0236 (#23,#04,G2a)
  7190.        RTRUE           
  7191.  
  7192. Routine R0180, 0 locals
  7193.     Action routine for:
  7194.         "lock noun with held"
  7195.  
  7196.        CALL_2S         R0148 (G2a) -> -(SP)
  7197.        JZ              (SP)+ [TRUE] L0001
  7198.        RTRUE           
  7199. L0001: TEST_ATTR       G2a,#0a [TRUE] L0002
  7200.        CALL_VS         R0236 (#24,#01,G2a) -> -(SP)
  7201.        RET_POPPED      
  7202. L0002: TEST_ATTR       G2a,#0b [FALSE] L0003
  7203.        CALL_VS         R0236 (#24,#02,G2a) -> -(SP)
  7204.        RET_POPPED      
  7205. L0003: TEST_ATTR       G2a,#0e [FALSE] L0004
  7206.        CALL_VS         R0236 (#24,#03,G2a) -> -(SP)
  7207.        RET_POPPED      
  7208. L0004: GET_PROP        G2a,#14 -> -(SP)
  7209.        JE              (SP)+,G2b [TRUE] L0005
  7210.        CALL_VS         R0236 (#24,#04,G2b) -> -(SP)
  7211.        RET_POPPED      
  7212. L0005: SET_ATTR        G2a,#0b
  7213.        CALL_1S         R0079 -> -(SP)
  7214.        JE              (SP)+,#01 [TRUE] RTRUE
  7215.        JE              G2c,#01 [TRUE] RTRUE
  7216.        CALL_VN         R0236 (#24,#05,G2a)
  7217.        RTRUE           
  7218.  
  7219. Routine R0181, 0 locals
  7220.     Action routine for:
  7221.         "rotate noun on"
  7222.         "rotate on noun"
  7223.         "switch noun"
  7224.         "switch noun on"
  7225.         "switch on noun"
  7226.  
  7227.        CALL_2S         R0148 (G2a) -> -(SP)
  7228.        JZ              (SP)+ [TRUE] L0001
  7229.        RTRUE           
  7230. L0001: TEST_ATTR       G2a,#15 [TRUE] L0002
  7231.        CALL_VS         R0236 (#25,#01,G2a) -> -(SP)
  7232.        RET_POPPED      
  7233. L0002: TEST_ATTR       G2a,#0d [FALSE] L0003
  7234.        CALL_VS         R0236 (#25,#02,G2a) -> -(SP)
  7235.        RET_POPPED      
  7236. L0003: SET_ATTR        G2a,#0d
  7237.        CALL_1S         R0079 -> -(SP)
  7238.        JE              (SP)+,#01 [TRUE] RTRUE
  7239.        JE              G2c,#01 [TRUE] RTRUE
  7240.        CALL_VN         R0236 (#25,#03,G2a)
  7241.        RTRUE           
  7242.  
  7243. Routine R0182, 0 locals
  7244.     Action routine for:
  7245.         "close off noun"
  7246.         "rotate noun off"
  7247.         "rotate off noun"
  7248.         "switch noun off"
  7249.         "switch off noun"
  7250.  
  7251.        CALL_2S         R0148 (G2a) -> -(SP)
  7252.        JZ              (SP)+ [TRUE] L0001
  7253.        RTRUE           
  7254. L0001: TEST_ATTR       G2a,#15 [TRUE] L0002
  7255.        CALL_VS         R0236 (#26,#01,G2a) -> -(SP)
  7256.        RET_POPPED      
  7257. L0002: TEST_ATTR       G2a,#0d [TRUE] L0003
  7258.        CALL_VS         R0236 (#26,#02,G2a) -> -(SP)
  7259.        RET_POPPED      
  7260. L0003: CLEAR_ATTR      G2a,#0d
  7261.        CALL_1S         R0079 -> -(SP)
  7262.        JE              (SP)+,#01 [TRUE] RTRUE
  7263.        JE              G2c,#01 [TRUE] RTRUE
  7264.        CALL_VN         R0236 (#26,#03,G2a)
  7265.        RTRUE           
  7266.  
  7267. Routine R0183, 0 locals
  7268.     Action routine for:
  7269.         "open noun"
  7270.  
  7271.        CALL_2S         R0148 (G2a) -> -(SP)
  7272.        JZ              (SP)+ [TRUE] L0001
  7273.        RTRUE           
  7274. L0001: TEST_ATTR       G2a,#0f [TRUE] L0002
  7275.        CALL_VS         R0236 (#27,#01,G2a) -> -(SP)
  7276.        RET_POPPED      
  7277. L0002: TEST_ATTR       G2a,#0b [FALSE] L0003
  7278.        CALL_VS         R0236 (#27,#02,G2a) -> -(SP)
  7279.        RET_POPPED      
  7280. L0003: TEST_ATTR       G2a,#0e [FALSE] L0004
  7281.        CALL_VS         R0236 (#27,#03,G2a) -> -(SP)
  7282.        RET_POPPED      
  7283. L0004: SET_ATTR        G2a,#0e
  7284.        CALL_1S         R0079 -> -(SP)
  7285.        JE              (SP)+,#01 [TRUE] RTRUE
  7286.        JE              G2c,#01 [TRUE] RTRUE
  7287.        TEST_ATTR       G2a,#04 [FALSE] L0006
  7288.        TEST_ATTR       G2a,#17 [TRUE] L0006
  7289.        GET_CHILD       G2a -> -(SP) [FALSE] L0005
  7290. L0005: JZ              (SP)+ [TRUE] L0006
  7291.        CALL_VS         R0147 (G2a,G12) -> -(SP)
  7292.        JZ              (SP)+ [FALSE] L0006
  7293.        CALL_VS         R0236 (#27,#04,G2a) -> -(SP)
  7294.        RET_POPPED      
  7295. L0006: CALL_VN         R0236 (#27,#05,G2a)
  7296.        RTRUE           
  7297.  
  7298. Routine R0184, 0 locals
  7299.     Action routine for:
  7300.         "close noun"
  7301.         "close up noun"
  7302.  
  7303.        CALL_2S         R0148 (G2a) -> -(SP)
  7304.        JZ              (SP)+ [TRUE] L0001
  7305.        RTRUE           
  7306. L0001: TEST_ATTR       G2a,#0f [TRUE] L0002
  7307.        CALL_VS         R0236 (#28,#01,G2a) -> -(SP)
  7308.        RET_POPPED      
  7309. L0002: TEST_ATTR       G2a,#0e [TRUE] L0003
  7310.        CALL_VS         R0236 (#28,#02,G2a) -> -(SP)
  7311.        RET_POPPED      
  7312. L0003: CLEAR_ATTR      G2a,#0e
  7313.        CALL_1S         R0079 -> -(SP)
  7314.        JE              (SP)+,#01 [TRUE] RTRUE
  7315.        JE              G2c,#01 [TRUE] RTRUE
  7316.        CALL_VN         R0236 (#28,#03,G2a)
  7317.        RTRUE           
  7318.  
  7319. Routine R0185, 0 locals
  7320.     Action routine for:
  7321.         "carry off ATTRIBUTE(26)"
  7322.         "remove held"
  7323.         "disrobe held"
  7324.  
  7325.        CALL_2S         R0148 (G2a) -> -(SP)
  7326.        JZ              (SP)+ [TRUE] L0001
  7327.        RTRUE           
  7328. L0001: TEST_ATTR       G2a,#1a [TRUE] L0002
  7329.        CALL_VS         R0236 (#29,#01,G2a) -> -(SP)
  7330.        RET_POPPED      
  7331. L0002: CLEAR_ATTR      G2a,#1a
  7332.        CALL_1S         R0079 -> -(SP)
  7333.        JE              (SP)+,#01 [TRUE] RTRUE
  7334.        JE              G2c,#01 [TRUE] RTRUE
  7335.        CALL_VN         R0236 (#29,#02,G2a)
  7336.        RTRUE           
  7337.  
  7338. Routine R0186, 0 locals
  7339.     Action routine for:
  7340.         "don held"
  7341.         "put on held"
  7342.  
  7343.        CALL_2S         R0148 (G2a) -> -(SP)
  7344.        JZ              (SP)+ [TRUE] L0001
  7345.        RTRUE           
  7346. L0001: TEST_ATTR       G2a,#02 [TRUE] L0002
  7347.        CALL_VS         R0236 (#2a,#01,G2a) -> -(SP)
  7348.        RET_POPPED      
  7349. L0002: GET_PARENT      G2a -> -(SP)
  7350.        JE              (SP)+,G12 [TRUE] L0003
  7351.        CALL_VS         R0236 (#2a,#02,G2a) -> -(SP)
  7352.        RET_POPPED      
  7353. L0003: TEST_ATTR       G2a,#1a [FALSE] L0004
  7354.        CALL_VS         R0236 (#2a,#03,G2a) -> -(SP)
  7355.        RET_POPPED      
  7356. L0004: SET_ATTR        G2a,#1a
  7357.        CALL_1S         R0079 -> -(SP)
  7358.        JE              (SP)+,#01 [TRUE] RTRUE
  7359.        JE              G2c,#01 [TRUE] RTRUE
  7360.        CALL_VN         R0236 (#2a,#04,G2a)
  7361.        RTRUE           
  7362.  
  7363. Routine R0187, 0 locals
  7364.     Action routine for:
  7365.         "eat held"
  7366.  
  7367.        CALL_2S         R0148 (G2a) -> -(SP)
  7368.        JZ              (SP)+ [TRUE] L0001
  7369.        RTRUE           
  7370. L0001: TEST_ATTR       G2a,#06 [TRUE] L0002
  7371.        CALL_VS         R0236 (#2b,#01,G2a) -> -(SP)
  7372.        RET_POPPED      
  7373. L0002: REMOVE_OBJ      G2a
  7374.        CALL_1S         R0079 -> -(SP)
  7375.        JE              (SP)+,#01 [TRUE] RTRUE
  7376.        JE              G2c,#01 [TRUE] RTRUE
  7377.        CALL_VN         R0236 (#2b,#02,G2a)
  7378.        RTRUE           
  7379.  
  7380. Routine R0188, 0 locals
  7381.     Action routine for:
  7382.         "y"
  7383.  
  7384.        CALL_2N         R0236 (#2c)
  7385.        RTRUE           
  7386.  
  7387. Routine R0189, 0 locals
  7388.     Action routine for:
  7389.         "no"
  7390.  
  7391.        CALL_2N         R0236 (#2d)
  7392.        RTRUE           
  7393.  
  7394. Routine R0190, 0 locals
  7395.     Action routine for:
  7396.         "burn noun"
  7397.         "burn noun with held"
  7398.  
  7399.        CALL_VN         R0236 (#2e,#01,G2a)
  7400.        RTRUE           
  7401.  
  7402. Routine R0191, 0 locals
  7403.     Action routine for:
  7404.         "pray"
  7405.  
  7406.        CALL_VN         R0236 (#2f,#01,G2a)
  7407.        RTRUE           
  7408.  
  7409. Routine R0192, 0 locals
  7410.     Action routine for:
  7411.         "awake"
  7412.         "awake up"
  7413.  
  7414.        CALL_VN         R0236 (#30,#01,G2a)
  7415.        RTRUE           
  7416.  
  7417. Routine R0193, 0 locals
  7418.     Action routine for:
  7419.         "awake creature"
  7420.         "awake creature up"
  7421.         "awake up creature"
  7422.  
  7423.        CALL_2S         R0148 (G2a) -> -(SP)
  7424.        JZ              (SP)+ [TRUE] L0001
  7425.        RTRUE           
  7426. L0001: CALL_VS         R0080 (G2a,#31) -> -(SP)
  7427.        JZ              (SP)+ [FALSE] RFALSE
  7428.        CALL_VN         R0236 (#31,#01,G2a)
  7429.        RTRUE           
  7430.  
  7431. Routine R0194, 0 locals
  7432.     Action routine for:
  7433.         "think"
  7434.  
  7435.        CALL_VN         R0236 (#33,#01,G2a)
  7436.        RTRUE           
  7437.  
  7438. Routine R0195, 0 locals
  7439.     Action routine for:
  7440.         "smell"
  7441.         "smell noun"
  7442.  
  7443.        CALL_VN         R0236 (#34,#01,G2a)
  7444.        RTRUE           
  7445.  
  7446. Routine R0196, 0 locals
  7447.     Action routine for:
  7448.         "hear"
  7449.         "hear noun"
  7450.         "hear to noun"
  7451.  
  7452.        CALL_VN         R0236 (#35,#01,G2a)
  7453.        RTRUE           
  7454.  
  7455. Routine R0197, 0 locals
  7456.     Action routine for:
  7457.         "taste noun"
  7458.  
  7459.        CALL_VN         R0236 (#36,#01,G2a)
  7460.        RTRUE           
  7461.  
  7462. Routine R0198, 0 locals
  7463.     Action routine for:
  7464.         "dig noun"
  7465.         "dig noun with held"
  7466.  
  7467.        CALL_VN         R0236 (#38,#01,G2a)
  7468.        RTRUE           
  7469.  
  7470. Routine R0199, 0 locals
  7471.     Action routine for:
  7472.         "chop noun"
  7473.  
  7474.        CALL_VN         R0236 (#39,#01,G2a)
  7475.        RTRUE           
  7476.  
  7477. Routine R0200, 0 locals
  7478.     Action routine for:
  7479.         "hop"
  7480.  
  7481.        CALL_VN         R0236 (#3a,#01,G2a)
  7482.        RTRUE           
  7483.  
  7484. Routine R0201, 0 locals
  7485.     Action routine for:
  7486.         "hop over noun"
  7487.  
  7488.        CALL_VN         R0236 (#3b,#01,G2a)
  7489.        RTRUE           
  7490.  
  7491. Routine R0202, 0 locals
  7492.     Action routine for:
  7493.         "attach noun"
  7494.         "attach noun to noun"
  7495.  
  7496.        CALL_VN         R0236 (#3c,#01,G2a)
  7497.        RTRUE           
  7498.  
  7499. Routine R0203, 0 locals
  7500.     Action routine for:
  7501.         "drink noun"
  7502.  
  7503.        CALL_VN         R0236 (#3d,#01,G2a)
  7504.        RTRUE           
  7505.  
  7506. Routine R0204, 0 locals
  7507.     Action routine for:
  7508.         "fill noun"
  7509.  
  7510.        CALL_VN         R0236 (#3e,#01,G2a)
  7511.        RTRUE           
  7512.  
  7513. Routine R0205, 0 locals
  7514.     Action routine for:
  7515.         "sorry"
  7516.  
  7517.        CALL_VN         R0236 (#3f,#01,G2a)
  7518.        RTRUE           
  7519.  
  7520. Routine R0206, 0 locals
  7521.     Action routine for:
  7522.         "damn"
  7523.         "damn topic"
  7524.  
  7525.        CALL_VN         R0236 (#40,#01,G2a)
  7526.        RTRUE           
  7527.  
  7528. Routine R0207, 0 locals
  7529.     Action routine for:
  7530.         "bother"
  7531.         "bother topic"
  7532.  
  7533.        CALL_VN         R0236 (#41,#01,G2a)
  7534.        RTRUE           
  7535.  
  7536. Routine R0208, 0 locals
  7537.     Action routine for:
  7538.         "dive"
  7539.  
  7540.        CALL_VN         R0236 (#43,#01,G2a)
  7541.        RTRUE           
  7542.  
  7543. Routine R0209, 0 locals
  7544.     Action routine for:
  7545.         "swing noun"
  7546.         "swing on noun"
  7547.  
  7548.        CALL_VN         R0236 (#44,#01,G2a)
  7549.        RTRUE           
  7550.  
  7551. Routine R0210, 0 locals
  7552.     Action routine for:
  7553.         "blow held"
  7554.  
  7555.        CALL_VN         R0236 (#45,#01,G2a)
  7556.        RTRUE           
  7557.  
  7558. Routine R0211, 0 locals
  7559.     Action routine for:
  7560.         "clean noun"
  7561.  
  7562.        CALL_VN         R0236 (#46,#01,G2a)
  7563.        RTRUE           
  7564.  
  7565. Routine R0212, 0 locals
  7566.     Action routine for:
  7567.         "adjust noun"
  7568.  
  7569.        CALL_VN         R0236 (#47,#01,G2a)
  7570.        RTRUE           
  7571.  
  7572. Routine R0213, 0 locals
  7573.     Action routine for:
  7574.         "adjust noun to special"
  7575.  
  7576.        CALL_VN         R0236 (#48,#01,G2a)
  7577.        RTRUE           
  7578.  
  7579. Routine R0214, 0 locals
  7580.     Action routine for:
  7581.         "wave"
  7582.  
  7583.        CALL_VN         R0236 (#49,#01,G2a)
  7584.        RTRUE           
  7585.  
  7586. Routine R0215, 0 locals
  7587.     Action routine for:
  7588.         "buy noun"
  7589.  
  7590.        CALL_VN         R0236 (#54,#01,G2a)
  7591.        RTRUE           
  7592.  
  7593. Routine R0216, 0 locals
  7594.     Action routine for:
  7595.         "sing"
  7596.  
  7597.        CALL_VN         R0236 (#55,#01,G2a)
  7598.        RTRUE           
  7599.  
  7600. Routine R0217, 0 locals
  7601.     Action routine for:
  7602.         "climb noun"
  7603.         "climb up / over noun"
  7604.  
  7605.        CALL_VN         R0236 (#56,#01,G2a)
  7606.        RTRUE           
  7607.  
  7608. Routine R0218, 0 locals
  7609.     Action routine for:
  7610.         "nap"
  7611.  
  7612.        CALL_VN         R0236 (#58,#01,G2a)
  7613.        RTRUE           
  7614.  
  7615. Routine R0219, 0 locals
  7616.     Action routine for:
  7617.         "l up topic in noun"
  7618.         "consult noun about topic"
  7619.         "consult noun on topic"
  7620.         "read about topic in noun"
  7621.         "read topic in noun"
  7622.  
  7623.        CALL_VN         R0236 (#59,#01,G2a)
  7624.        RTRUE           
  7625.  
  7626. Routine R0220, 0 locals
  7627.     Action routine for:
  7628.         "feel noun"
  7629.  
  7630.        JE              G2a,G12 [FALSE] L0001
  7631.        CALL_VS         R0236 (#37,#03,G2a) -> -(SP)
  7632.        RET_POPPED      
  7633. L0001: CALL_2S         R0148 (G2a) -> -(SP)
  7634.        JZ              (SP)+ [TRUE] L0002
  7635.        RTRUE           
  7636. L0002: TEST_ATTR       G2a,#00 [FALSE] L0003
  7637.        CALL_VS         R0236 (#37,#01,G2a) -> -(SP)
  7638.        RET_POPPED      
  7639. L0003: CALL_VN         R0236 (#37,#02,G2a)
  7640.        RTRUE           
  7641.  
  7642. Routine R0221, 0 locals
  7643.     Action routine for:
  7644.         "wave noun"
  7645.  
  7646.        GET_PARENT      G2a -> -(SP)
  7647.        JE              (SP)+,G12 [TRUE] L0001
  7648.        CALL_VS         R0236 (#4a,#01,G2a) -> -(SP)
  7649.        RET_POPPED      
  7650. L0001: CALL_VN         R0236 (#4a,#02,G2a)
  7651.        RTRUE           
  7652.  
  7653. Routine R0222, 0 locals
  7654.     Action routine for:
  7655.         "drag noun"
  7656.  
  7657.        CALL_2S         R0148 (G2a) -> -(SP)
  7658.        JZ              (SP)+ [TRUE] L0001
  7659.        RTRUE           
  7660. L0001: TEST_ATTR       G2a,#13 [FALSE] L0002
  7661.        CALL_VS         R0236 (#4b,#01,G2a) -> -(SP)
  7662.        RET_POPPED      
  7663. L0002: TEST_ATTR       G2a,#11 [FALSE] L0003
  7664.        CALL_VS         R0236 (#4b,#02,G2a) -> -(SP)
  7665.        RET_POPPED      
  7666. L0003: TEST_ATTR       G2a,#00 [FALSE] L0004
  7667.        CALL_VS         R0236 (#4b,#04,G2a) -> -(SP)
  7668.        RET_POPPED      
  7669. L0004: CALL_VN         R0236 (#4b,#03,G2a)
  7670.        RTRUE           
  7671.  
  7672. Routine R0223, 0 locals
  7673.     Action routine for:
  7674.         "clear noun"
  7675.  
  7676.        CALL_2S         R0148 (G2a) -> -(SP)
  7677.        JZ              (SP)+ [TRUE] L0001
  7678.        RTRUE           
  7679. L0001: TEST_ATTR       G2a,#13 [FALSE] L0002
  7680.        CALL_VS         R0236 (#4c,#01,G2a) -> -(SP)
  7681.        RET_POPPED      
  7682. L0002: TEST_ATTR       G2a,#11 [FALSE] L0003
  7683.        CALL_VS         R0236 (#4c,#02,G2a) -> -(SP)
  7684.        RET_POPPED      
  7685. L0003: TEST_ATTR       G2a,#00 [FALSE] L0004
  7686.        CALL_VS         R0236 (#4b,#04,G2a) -> -(SP)
  7687.        RET_POPPED      
  7688. L0004: CALL_VN         R0236 (#4c,#03,G2a)
  7689.        RTRUE           
  7690.  
  7691. Routine R0224, 0 locals
  7692.     Action routine for:
  7693.         "rotate noun"
  7694.  
  7695.        CALL_2S         R0148 (G2a) -> -(SP)
  7696.        JZ              (SP)+ [TRUE] L0001
  7697.        RTRUE           
  7698. L0001: TEST_ATTR       G2a,#13 [FALSE] L0002
  7699.        CALL_VS         R0236 (#4d,#01,G2a) -> -(SP)
  7700.        RET_POPPED      
  7701. L0002: TEST_ATTR       G2a,#11 [FALSE] L0003
  7702.        CALL_VS         R0236 (#4d,#02,G2a) -> -(SP)
  7703.        RET_POPPED      
  7704. L0003: TEST_ATTR       G2a,#00 [FALSE] L0004
  7705.        CALL_VS         R0236 (#4b,#04,G2a) -> -(SP)
  7706.        RET_POPPED      
  7707. L0004: CALL_VN         R0236 (#4d,#03,G2a)
  7708.        RTRUE           
  7709.  
  7710. Routine R0225, 0 locals
  7711.     Action routine for:
  7712.         "wait"
  7713.  
  7714.        CALL_1S         R0079 -> -(SP)
  7715.        JE              (SP)+,#01 [TRUE] RTRUE
  7716.        CALL_VN         R0236 (#57,#01,G2a)
  7717.        RTRUE           
  7718.  
  7719. Routine R0226, 0 locals
  7720.     Action routine for:
  7721.         "clear noun noun"
  7722.  
  7723.        CALL_VN         R0236 (#4e,#01,G2a)
  7724.        RTRUE           
  7725.  
  7726. Routine R0227, 1 local
  7727.  
  7728.        GET_PARENT      G2b -> -(SP)
  7729.        JE              (SP)+,#06 [TRUE] L0001
  7730.        CALL_VS         R0236 (#4e,#02,G2a) -> -(SP)
  7731.        RET_POPPED      
  7732. L0001: JE              G2b,#0f,#10 [FALSE] L0002
  7733.        CALL_VS         R0236 (#4e,#03,G2a) -> -(SP)
  7734.        RET_POPPED      
  7735. L0002: CALL_1N         R0079
  7736.        STORE           L00,G2a
  7737.        INSERT_OBJ      L00,G12
  7738.        CALL_VN         R0075 (#1b,G2b)
  7739.        JE              G00,#13 [FALSE] L0003
  7740.        INSERT_OBJ      L00,G15
  7741.        JUMP            L0004
  7742. L0003: INSERT_OBJ      L00,G00
  7743. L0004: RTRUE           
  7744.  
  7745. Routine R0228, 0 locals
  7746.     Action routine for:
  7747.         "squash noun"
  7748.  
  7749.        CALL_2S         R0148 (G2a) -> -(SP)
  7750.        JZ              (SP)+ [TRUE] L0001
  7751.        RTRUE           
  7752. L0001: TEST_ATTR       G2a,#00 [FALSE] L0002
  7753.        CALL_VS         R0236 (#4f,#01,G2a) -> -(SP)
  7754.        RET_POPPED      
  7755. L0002: CALL_VN         R0236 (#4f,#02,G2a)
  7756.        RTRUE           
  7757.  
  7758. Routine R0229, 0 locals
  7759.     Action routine for:
  7760.         "discard held at / against / on / onto noun"
  7761.  
  7762.        CALL_2S         R0148 (G2a) -> -(SP)
  7763.        JZ              (SP)+ [TRUE] L0001
  7764.        RTRUE           
  7765. L0001: JG              G2b,#01 [FALSE] L0003
  7766.        STORE           G27,#1002
  7767.        CALL_VS         R0084 (G2b,#04) -> -(SP)
  7768.        JZ              (SP)+ [TRUE] L0002
  7769.        STORE           G27,#50
  7770.        RTRUE           
  7771. L0002: STORE           G27,#50
  7772. L0003: TEST_ATTR       G2b,#00 [TRUE] L0004
  7773.        CALL_VS         R0236 (#50,#01) -> -(SP)
  7774.        RET_POPPED      
  7775. L0004: CALL_VS         R0080 (G2b,#50) -> -(SP)
  7776.        JZ              (SP)+ [FALSE] RFALSE
  7777.        CALL_VN         R0236 (#50,#02,G2a)
  7778.        RTRUE           
  7779.  
  7780. Routine R0230, 0 locals
  7781.     Action routine for:
  7782.         "attack noun"
  7783.  
  7784.        CALL_2S         R0148 (G2a) -> -(SP)
  7785.        JZ              (SP)+ [TRUE] L0001
  7786.        RTRUE           
  7787. L0001: TEST_ATTR       G2a,#00 [FALSE] L0002
  7788.        CALL_VS         R0080 (G2a,#42) -> -(SP)
  7789.        JZ              (SP)+ [FALSE] RFALSE
  7790. L0002: CALL_VN         R0236 (#42,#01,G2a)
  7791.        RTRUE           
  7792.  
  7793. Routine R0231, 0 locals
  7794.     Action routine for:
  7795.         "embrace creature"
  7796.  
  7797.        CALL_2S         R0148 (G2a) -> -(SP)
  7798.        JZ              (SP)+ [TRUE] L0001
  7799.        RTRUE           
  7800. L0001: CALL_VS         R0080 (G2a,#32) -> -(SP)
  7801.        JZ              (SP)+ [FALSE] RFALSE
  7802.        JE              G2a,G12 [FALSE] L0002
  7803.        CALL_VS         R0236 (#37,#03,G2a) -> -(SP)
  7804.        RET_POPPED      
  7805. L0002: CALL_VN         R0236 (#32,#01,G2a)
  7806.        RTRUE           
  7807.  
  7808. Routine R0232, 0 locals
  7809.     Action routine for:
  7810.         "answer topic to creature"
  7811.  
  7812.        CALL_VS         R0080 (G2b,#52) -> -(SP)
  7813.        JZ              (SP)+ [FALSE] RFALSE
  7814.        CALL_VN         R0236 (#52,#01,G2a)
  7815.        RTRUE           
  7816.  
  7817. Routine R0233, 0 locals
  7818.     Action routine for:
  7819.         "tell creature about topic"
  7820.  
  7821.        JE              G2a,G12 [FALSE] L0001
  7822.        CALL_VS         R0236 (#51,#01,G2a) -> -(SP)
  7823.        RET_POPPED      
  7824. L0001: CALL_VS         R0080 (G2a,#51) -> -(SP)
  7825.        JZ              (SP)+ [FALSE] RFALSE
  7826.        CALL_VN         R0236 (#51,#02,G2a)
  7827.        RTRUE           
  7828.  
  7829. Routine R0234, 0 locals
  7830.     Action routine for:
  7831.         "ask creature about topic"
  7832.  
  7833.        CALL_VS         R0080 (G2a,#53) -> -(SP)
  7834.        JZ              (SP)+ [FALSE] RFALSE
  7835.        CALL_VN         R0236 (#53,#01,G2a)
  7836.        RTRUE           
  7837.  
  7838. Routine R0235, 0 locals
  7839.     Action routine for:
  7840.         "ask creature for noun"
  7841.  
  7842.        JE              G2a,G12 [FALSE] L0001
  7843.        CALL_2N         R0075 (#0e)
  7844.        RTRUE           
  7845. L0001: CALL_VN         R0236 (#1003,#01,G2a)
  7846.        RTRUE           
  7847.  
  7848. Routine R0236, 4 locals
  7849.  
  7850.        STORE           L03,Ge9
  7851.        STORE           Ge9,L00
  7852.        JZ              L01 [FALSE] L0001
  7853.        STORE           L01,#01
  7854. L0001: CALL_VN         R0237 (L01,L02)
  7855.        STORE           Ge9,L03
  7856.        RTRUE           
  7857.  
  7858. Routine R0237, 3 locals
  7859.  
  7860.        STORE           L02,G27
  7861.        STORE           G25,L00
  7862.        STORE           G26,L01
  7863.        STORE           G27,Ge9
  7864.        CALL_VS         R0084 (#17,#04) -> -(SP)
  7865.        JZ              (SP)+ [TRUE] L0001
  7866.        STORE           G27,L02
  7867.        RFALSE          
  7868. L0001: STORE           G27,L02
  7869.        CALL_VN         R0014 (L00,L01)
  7870.        RTRUE           
  7871.  
  7872. Routine R0238, 0 locals
  7873.  
  7874.        STORE           G00,#001d
  7875.        PRINT_RET       "
  7876.  
  7877.  
  7878.  
  7879.  
  7880. Days of searching, days of endless hacking through the levels of the I-F
  7881. archive, but at last your patience is rewarded. A contest! It looks like you've
  7882. arrived between events, though,...
  7883. "
  7884.  
  7885. Routine R0239, 4 locals
  7886.  
  7887.        SPLIT_WINDOW    #01
  7888.        SET_WINDOW      #01
  7889.        SET_CURSOR      #01,#01
  7890.        SET_TEXT_STYLE  REVERSE
  7891.        LOADB           #00,#21 -> L00
  7892.        SUB             L00,#1a -> L01
  7893.        SUB             L00,#0d -> L02
  7894.        STORE           Gef,L00
  7895.        JL              Gef,#01 [TRUE] L0002
  7896. L0001: PRINT_CHAR      ' '
  7897.        DEC             Gef
  7898.        JZ              Gef [FALSE] L0001
  7899. L0002: SET_CURSOR      #01,#02
  7900.        CALL_2N         R0104 (G00)
  7901.        JIN             "rack on the wall",G00 [FALSE] L0010
  7902.        STORE           G01,#00
  7903.        STORE           Gef,#00
  7904.        GET_CHILD       "rack on the wall" -> -(SP) [FALSE] L0004
  7905. L0003: INC             Gef
  7906.        GET_SIBLING     (SP)+ -> -(SP) [TRUE] L0003
  7907. L0004: PULL            Gee
  7908.        STORE           G02,Gef
  7909.        GET_CHILD       "rack on the wall" -> -(SP) [FALSE] L0005
  7910. L0005: PULL            L03
  7911.        JZ              L03 [TRUE] L0008
  7912. L0006: CALL_VS         R0317 (L03,#004c) -> -(SP)
  7913.        JZ              (SP)+ [TRUE] L0007
  7914.        INC             G01
  7915. L0007: GET_SIBLING     L03 -> L03 [TRUE] L0006
  7916. L0008: JG              L00,#4c [FALSE] L0009
  7917.        SET_CURSOR      #01,L01
  7918.        PRINT           "Games Rated: "
  7919.        PRINT_NUM       G01
  7920.        PRINT           "/"
  7921.        PRINT_NUM       G02
  7922. L0009: JG              L00,#3f [FALSE] L0010
  7923.        JG              L00,#4c [TRUE] L0010
  7924.        SET_CURSOR      #01,L02
  7925.        PRINT_NUM       G01
  7926.        PRINT           "/"
  7927.        PRINT_NUM       G02
  7928. L0010: SET_CURSOR      #01,#01
  7929.        SET_TEXT_STYLE  ROMAN
  7930.        SET_WINDOW      #00
  7931.        RTRUE           
  7932.  
  7933. Routine R0240, 0 locals
  7934.  
  7935.        SET_TEXT_STYLE  BOLDFACE
  7936.        PRINT           """
  7937.        CALL_VS         R0317 (Geb,#005b) -> -(SP)
  7938.        PRINT_PADDR     (SP)+
  7939.        PRINT           """
  7940.        SET_TEXT_STYLE  ROMAN
  7941.        PRINT           " is "
  7942.        GET_PROP        Geb,#25 -> -(SP)
  7943.        PRINT_PADDR     (SP)+
  7944.        PRINT           " "
  7945.        CALL_VS         R0317 (Geb,#004e) -> -(SP)
  7946.        PRINT_PADDR     (SP)+
  7947.        PRINT           " game by "
  7948.        CALL_VS         R0317 (Geb,#005d) -> -(SP)
  7949.        PRINT_PADDR     (SP)+
  7950.        PRINT           ". A short blurb about the game is written on the back.
  7951. You have"
  7952.        CALL_VS         R0317 (Geb,#004c) -> -(SP)
  7953.        JZ              (SP)+ [FALSE] L0001
  7954.        PRINT           "n't rated this game yet."
  7955.        JUMP            L0002
  7956. L0001: PRINT           " given this game a "
  7957.        CALL_VS         R0317 (Geb,#004c) -> -(SP)
  7958.        CALL_2N         R0105 ((SP)+)
  7959.        PRINT           "."
  7960. L0002: PRINT_RET       ""
  7961.  
  7962. Routine R0241, 0 locals
  7963.  
  7964.        JE              Ge9,#59,#5e [FALSE] L0016
  7965.        SET_TEXT_STYLE  BOLDFACE
  7966.        PRINT           """
  7967.        CALL_VS         R0317 (Geb,#005b) -> -(SP)
  7968.        PRINT_PADDR     (SP)+
  7969.        CALL_VS         R0321 (Geb,#005e) -> -(SP)
  7970.        JZ              (SP)+ [TRUE] L0001
  7971.        PRINT           ": "
  7972.        CALL_VS         R0317 (Geb,#005e) -> -(SP)
  7973.        PRINT_PADDR     (SP)+
  7974. L0001: PRINT           """
  7975.        SET_TEXT_STYLE  ROMAN
  7976.        PRINT           " can be found in the directory:
  7977.  
  7978. ftp://ftp.gmd.de/if-archive/games/competition96/"
  7979.        CALL_VS         R0317 (Geb,#005f) -> -(SP)
  7980.        PRINT_PADDR     (SP)+
  7981.        PRINT           "/"
  7982.        CALL_VS         R0317 (Geb,#005f) -> -(SP)
  7983.        PRINT_PADDR     (SP)+
  7984.        CALL_VS         R0321 (Geb,#004f) -> -(SP)
  7985.        JZ              (SP)+ [TRUE] L0002
  7986.        CALL_VS         R0317 (Geb,#004f) -> -(SP)
  7987.        PRINT_PADDR     (SP)+
  7988. L0002: CALL_VS         R0321 (Geb,#0060) -> -(SP)
  7989.        JZ              (SP)+ [TRUE] L0003
  7990.        PRINT           "
  7991.  
  7992. along with the files "
  7993.        CALL_VS         R0317 (Geb,#0060) -> -(SP)
  7994.        PRINT_PADDR     (SP)+
  7995.        PRINT           ", which provide extra information or hints.
  7996.  
  7997. "
  7998.        JUMP            L0004
  7999. L0003: PRINT           "
  8000.  
  8001. "
  8002. L0004: TEST_ATTR       Geb,#1f [FALSE] L0006
  8003.        PRINT           "The game is a standalone DOS game, and should be
  8004. playable directly from the DOS prompt. If you are not playing on a DOS-capable
  8005. machine, "
  8006.        CALL_VS         R0321 (Geb,#0050) -> -(SP)
  8007.        JZ              (SP)+ [TRUE] L0005
  8008.        PRINT           "you'll need an interpreter.
  8009. "
  8010.        JUMP            L0006
  8011. L0005: PRINT           "you will be unable to play this game.
  8012. "
  8013. L0006: CALL_VS         R0321 (Geb,#0050) -> -(SP)
  8014.        JZ              (SP)+ [TRUE] L0014
  8015.        PRINT           "Interpreters for this "
  8016.        CALL_VS         R0317 (Geb,#004e) -> -(SP)
  8017.        PRINT_PADDR     (SP)+
  8018.        PRINT           " game can be found in:
  8019.  
  8020. "
  8021.        CALL_VS         R0317 (Geb,#0050) -> -(SP)
  8022.        PRINT_PADDR     (SP)+
  8023.        PRINT           "
  8024.  
  8025. Interpreters exist for:
  8026.  
  8027. "
  8028.        CALL_VS         R0321 (Geb,#0051) -> -(SP)
  8029.        JZ              (SP)+ [TRUE] L0007
  8030.        PRINT           "*  DOS -- "
  8031.        CALL_VS         R0317 (Geb,#0051) -> -(SP)
  8032.        PRINT_PADDR     (SP)+
  8033.        PRINT           "
  8034.  
  8035. "
  8036. L0007: CALL_VS         R0321 (Geb,#0052) -> -(SP)
  8037.        JZ              (SP)+ [TRUE] L0008
  8038.        PRINT           "*  Windows -- "
  8039.        CALL_VS         R0317 (Geb,#0052) -> -(SP)
  8040.        PRINT_PADDR     (SP)+
  8041.        PRINT           "
  8042.  
  8043. "
  8044. L0008: CALL_VS         R0321 (Geb,#0053) -> -(SP)
  8045.        JZ              (SP)+ [TRUE] L0009
  8046.        PRINT           "*  Macintosh -- "
  8047.        CALL_VS         R0317 (Geb,#0053) -> -(SP)
  8048.        PRINT_PADDR     (SP)+
  8049.        PRINT           "
  8050.  
  8051. "
  8052. L0009: CALL_VS         R0321 (Geb,#0054) -> -(SP)
  8053.        JZ              (SP)+ [TRUE] L0010
  8054.        PRINT           "*  OS/2 -- "
  8055.        CALL_VS         R0317 (Geb,#0054) -> -(SP)
  8056.        PRINT_PADDR     (SP)+
  8057.        PRINT           "
  8058.  
  8059. "
  8060. L0010: CALL_VS         R0321 (Geb,#0055) -> -(SP)
  8061.        JZ              (SP)+ [TRUE] L0011
  8062.        PRINT           "*  Linux -- "
  8063.        CALL_VS         R0317 (Geb,#0055) -> -(SP)
  8064.        PRINT_PADDR     (SP)+
  8065.        PRINT           "
  8066.  
  8067. "
  8068. L0011: CALL_VS         R0321 (Geb,#0056) -> -(SP)
  8069.        JZ              (SP)+ [TRUE] L0012
  8070.        PRINT           "*  Unix -- "
  8071.        CALL_VS         R0317 (Geb,#0056) -> -(SP)
  8072.        PRINT_PADDR     (SP)+
  8073.        PRINT           "
  8074.  
  8075. "
  8076. L0012: CALL_VS         R0321 (Geb,#0057) -> -(SP)
  8077.        JZ              (SP)+ [TRUE] L0013
  8078.        PRINT           "*  Amiga -- "
  8079.        CALL_VS         R0317 (Geb,#0057) -> -(SP)
  8080.        PRINT_PADDR     (SP)+
  8081.        PRINT           "
  8082.  
  8083. "
  8084. L0013: CALL_VS         R0321 (Geb,#0058) -> -(SP)
  8085.        JZ              (SP)+ [TRUE] L0014
  8086.        PRINT           "*  Other -- "
  8087.        CALL_VS         R0317 (Geb,#0058) -> -(SP)
  8088.        PRINT_PADDR     (SP)+
  8089.        PRINT           "
  8090.  
  8091. "
  8092. L0014: CALL_VS         R0321 (Geb,#0061) -> -(SP)
  8093.        JZ              (SP)+ [TRUE] L0015
  8094.        PRINT           "
  8095. If you need to contact the author, they can be reached via e-mail at: "
  8096.        CALL_VS         R0317 (Geb,#0061) -> -(SP)
  8097.        PRINT_PADDR     (SP)+
  8098.        PRINT           "
  8099. "
  8100. L0015: RTRUE           
  8101. L0016: RFALSE          
  8102.  
  8103. Routine R0242, 0 locals
  8104.  
  8105.        PRINT           "You turn around to trudge back down the stairs and back
  8106. to real life.
  8107. "
  8108.        JIN             "rack on the wall","Competition Headquarters" [FALSE]
  8109. L0002
  8110.        PRINT           "Would you like to save this setup before you go? >"
  8111.        CALL_1S         R0127 -> -(SP)
  8112.        JZ              (SP)+ [TRUE] L0001
  8113.        CALL_2N         R0075 (#04)
  8114. L0001: PRINT           "Okay. Bye!
  8115. "
  8116.        CALL_2N         R0075 (#01)
  8117.        RTRUE           
  8118. L0002: CALL_2N         R0075 (#01)
  8119.        RTRUE           
  8120.  
  8121. Routine R0243, 0 locals
  8122.  
  8123.        JE              Ge9,#35 [FALSE] L0001
  8124.        PRINT_RET       "A faint hum of machinery echoes behind the walls"
  8125. L0001: JE              Ge9,#22 [FALSE] L0005
  8126.        GET_CHILD       G2a -> -(SP) [FALSE] L0002
  8127. L0002: JZ              (SP)+ [TRUE] L0004
  8128.        PRINT           "Within "
  8129.        CALL_2N         R0102 (G2a)
  8130.        PRINT           " you see:
  8131. "
  8132.        GET_CHILD       G2a -> -(SP) [FALSE] L0003
  8133. L0003: CALL_VN         R0120 ((SP)+,#0803)
  8134.        RTRUE           
  8135. L0004: CALL_2N         R0103 (G2a)
  8136.        PRINT_RET       " is empty."
  8137. L0005: RFALSE          
  8138.  
  8139. Routine R0244, 0 locals
  8140.  
  8141.        PRINT           "A bin for "
  8142.        CALL_VS         R0317 (Geb,#0059) -> -(SP)
  8143.        PRINT_PADDR     (SP)+
  8144.        PRINT           " games sits here, "
  8145.        CALL_2S         R0257 (Geb) -> -(SP)
  8146.        JZ              (SP)+ [FALSE] L0001
  8147.        PRINT_RET       "empty."
  8148. L0001: PRINT           "containing "
  8149.        CALL_2S         R0257 (Geb) -> -(SP)
  8150.        CALL_2N         R0105 ((SP)+)
  8151.        PRINT_RET       " games."
  8152.  
  8153. Routine R0245, 0 locals
  8154.  
  8155.        CALL_VS         R0317 (Geb,#005a) -> -(SP)
  8156.        PRINT_PADDR     (SP)+
  8157.        PRINT           "
  8158. "
  8159.        CALL_VN         R0075 (#22,Geb)
  8160.        RTRUE           
  8161.  
  8162. Routine R0246, 0 locals
  8163.  
  8164.        JE              Ge9,#1001 [FALSE] L0001
  8165.        CALL_VS         R0322 (G2a,#18) -> -(SP)
  8166.        JZ              (SP)+ [FALSE] L0001
  8167.        PRINT_RET       "Sorry, you can only put games into the bins."
  8168. L0001: RFALSE          
  8169.  
  8170. Routine R0247, 2 locals
  8171.  
  8172.        CALL_VS         R0318 (Geb,#0062) -> -(SP)
  8173.        PULL            Gef
  8174.        JE              Gef,#01 [FALSE] L0001
  8175.        STORE           L01,"green"
  8176.        JUMP            L0003
  8177. L0001: JE              Gef,#02 [FALSE] L0002
  8178.        STORE           L01,"yellow"
  8179.        JUMP            L0003
  8180. L0002: JE              Gef,#03 [FALSE] L0003
  8181.        STORE           L01,"red"
  8182. L0003: CALL_1S         R0055 -> -(SP)
  8183.        PULL            Gef
  8184.        JE              Gef,"lever","cables","light" [TRUE] L0004
  8185.        JE              Gef,L01 [FALSE] L0005
  8186. L0004: INC             L00
  8187.        JUMP            L0003
  8188. L0005: RET             L00
  8189.  
  8190. Routine R0248, 0 locals
  8191.  
  8192.        PRINT           "A large lever sticks conspicuously out of one wall,
  8193. just above the 'playable games' bin. A light below it glows "
  8194.        CALL_VS         R0318 (Geb,#0062) -> -(SP)
  8195.        PULL            Gef
  8196.        JE              Gef,#01 [FALSE] L0001
  8197.        PRINT           "green"
  8198.        JUMP            L0003
  8199. L0001: JE              Gef,#02 [FALSE] L0002
  8200.        PRINT           "yellow"
  8201.        JUMP            L0003
  8202. L0002: JE              Gef,#03 [FALSE] L0003
  8203.        PRINT           "red"
  8204. L0003: PRINT           ". The lever is "
  8205.        TEST_ATTR       Geb,#0d [FALSE] L0004
  8206.        PRINT           "up"
  8207.        JUMP            L0005
  8208. L0004: PRINT           "down"
  8209. L0005: PRINT_RET       "."
  8210.  
  8211. Routine R0249, 0 locals
  8212.  
  8213.        CALL_2S         R0257 (#20) -> -(SP)
  8214.        CALL_2S         R0257 (#1f) -> -(SP)
  8215.        ADD             (SP)+,(SP)+ -> -(SP)
  8216.        JE              (SP)+,#1b [FALSE] L0001
  8217.        RTRUE           
  8218. L0001: TEST_ATTR       Geb,#0d [FALSE] L0002
  8219.        RET             #02
  8220. L0002: RET             #03
  8221.  
  8222. Routine R0250, 0 locals
  8223.  
  8224.        JE              Ge9,#4c,#4b,#4d [FALSE] L0002
  8225.        TEST_ATTR       Geb,#0d [FALSE] L0001
  8226.        CALL_VN         R0075 (#26,Geb)
  8227.        RTRUE           
  8228. L0001: CALL_VN         R0075 (#25,Geb)
  8229.        RTRUE           
  8230.        RFALSE          
  8231. L0002: JE              Ge9,#25 [FALSE] L0003
  8232.        CALL_VS         R0318 (Geb,#62) -> -(SP)
  8233.        JE              (SP)+,#01 [TRUE] L0003
  8234.        PRINT_RET       "You are unable to move the lever while there are still
  8235. unsorted games here."
  8236. L0003: RFALSE          
  8237.  
  8238. Routine R0251, 0 locals
  8239.  
  8240.        JE              Ge9,#26 [FALSE] L0001
  8241.        CALL_VN         R0253 (#003e,#1f)
  8242.        REMOVE_OBJ      "rack on the wall"
  8243.        REMOVE_OBJ      "two buttons"
  8244.        PRINT_RET       "With a tumble, the rack tips, depositing its contents
  8245. into the 'playable games' bin again, before disappearing back into the wall."
  8246. L0001: JE              Ge9,#25 [FALSE] L0002
  8247.        INSERT_OBJ      "rack on the wall","Competition Headquarters"
  8248.        INSERT_OBJ      "two buttons","Competition Headquarters"
  8249.        CALL_1N         R0252
  8250.        PRINT_RET       "With a whir, the bottom of the 'playable games' bin
  8251. opens, and all the games inside disappear into an inky blackness. The bin
  8252. re-closes as you hear the games rattle and thump behind the wall within unseen
  8253. machinery. Finally, a panel in the wall rotates and a rack emerges, holding the
  8254. games in the order in which you're supposed to play them."
  8255. L0002: RFALSE          
  8256.  
  8257. Routine R0252, 5 locals
  8258.  
  8259.        STORE           Gef,#00
  8260.        GET_CHILD       "bin for playable games" -> -(SP) [FALSE] L0002
  8261. L0001: INC             Gef
  8262.        GET_SIBLING     (SP)+ -> -(SP) [TRUE] L0001
  8263. L0002: PULL            Gee
  8264.        STORE           L01,Gef
  8265.        STOREB          #2e43,#00,#00
  8266.        STORE           L02,#01
  8267. L0003: JL              L02,L01 [FALSE] L0004
  8268.        ADD             L02,#01 -> -(SP)
  8269.        RANDOM          (SP)+ -> -(SP)
  8270.        SUB             (SP)+,#01 -> L03
  8271.        LOADB           #2e43,L03 -> -(SP)
  8272.        STOREB          #2e43,L02,(SP)+
  8273.        STOREB          #2e43,L03,L02
  8274.        INC             L02
  8275.        JUMP            L0003
  8276. L0004: GET_CHILD       "bin for playable games" -> L00 [FALSE] L0005
  8277. L0005: STORE           L02,#00
  8278. L0006: JL              L02,L01 [FALSE] L0009
  8279.        LOADB           #2e43,L02 -> -(SP)
  8280.        ADD             (SP)+,#01 -> -(SP)
  8281.        CALL_VN         R0316 (L00,#4d,(SP)+)
  8282.        CALL_VS         R0317 (L00,#5c) -> -(SP)
  8283.        JG              (SP)+,L04 [FALSE] L0007
  8284.        CALL_VS         R0317 (L00,#5c) -> L04
  8285. L0007: GET_SIBLING     L00 -> L00 [FALSE] L0008
  8286. L0008: INC             L02
  8287.        JUMP            L0006
  8288. L0009: CALL_VN         R0316 (#003e,#0063,L04)
  8289.        CALL_VN         R0253 (#1f,#003e)
  8290.        RTRUE           
  8291.  
  8292. Routine R0253, 3 locals
  8293.  
  8294.        GET_CHILD       L00 -> L02 [FALSE] L0001
  8295. L0001: JZ              L02 [TRUE] L0003
  8296.        INSERT_OBJ      L02,L01
  8297.        GET_CHILD       L00 -> L02 [FALSE] L0002
  8298. L0002: JUMP            L0001
  8299. L0003: RTRUE           
  8300.  
  8301. Routine R0254, 0 locals
  8302.  
  8303.        PRINT           "There is a rack on the wall here with "
  8304.        CALL_2S         R0257 (Geb) -> -(SP)
  8305.        CALL_2N         R0105 ((SP)+)
  8306.        PRINT_RET       " games, all sorted and lined up in their slots, ready
  8307. for you to play and rate them. A square button to one side of the rack is
  8308. marked 'Save Rating Information', while a round button is marked 'Save All
  8309. Information'"
  8310.  
  8311. Routine R0255, 3 locals
  8312.  
  8313.        PRINT           "Here is your personalized list of games, and the order
  8314. in which you should play them:
  8315.  
  8316. "
  8317.        LOADW           #00,#08 -> Gef
  8318.        OR              #02,Gef -> Gef
  8319.        STOREW          #00,#08,Gef
  8320.        PRINT           "    Title: "
  8321.        STORE           L00,#00
  8322. L0001: CALL_VS         R0317 (Geb,#0063) -> -(SP)
  8323.        SUB             (SP)+,#0a -> -(SP)
  8324.        JL              L00,(SP)+ [FALSE] L0002
  8325.        PRINT           " "
  8326.        INC             L00
  8327.        JUMP            L0001
  8328. L0002: PRINT           "Rating:
  8329.  
  8330. "
  8331.        STORE           L00,#01
  8332. L0003: STORE           Gef,#00
  8333.        GET_CHILD       Geb -> -(SP) [FALSE] L0005
  8334. L0004: INC             Gef
  8335.        GET_SIBLING     (SP)+ -> -(SP) [TRUE] L0004
  8336. L0005: PULL            Gee
  8337.        PUSH            Gef
  8338.        JG              L00,(SP)+ [TRUE] L0013
  8339.        STORE           Gef,L00
  8340.        JL              Gef,#01 [TRUE] L0006
  8341.        JG              Gef,#09 [TRUE] L0006
  8342.        PRINT           " "
  8343. L0006: PRINT_NUM       L00
  8344.        PRINT           ": "
  8345.        GET_CHILD       Geb -> L02 [FALSE] L0007
  8346. L0007: CALL_VS         R0317 (L02,#4d) -> -(SP)
  8347.        JE              (SP)+,L00 [TRUE] L0009
  8348.        GET_SIBLING     L02 -> L02 [FALSE] L0008
  8349. L0008: JUMP            L0007
  8350. L0009: PRINT           """
  8351.        CALL_VS         R0317 (L02,#5b) -> -(SP)
  8352.        PRINT_PADDR     (SP)+
  8353.        PRINT           """
  8354.        CALL_VS         R0317 (L02,#4c) -> -(SP)
  8355.        JZ              (SP)+ [TRUE] L0012
  8356.        STORE           L01,#00
  8357. L0010: CALL_VS         R0317 (L02,#5c) -> -(SP)
  8358.        CALL_VS         R0317 (Geb,#0063) -> -(SP)
  8359.        SUB             (SP)+,(SP)+ -> -(SP)
  8360.        ADD             (SP)+,#01 -> -(SP)
  8361.        JL              L01,(SP)+ [FALSE] L0011
  8362.        PRINT           " "
  8363.        INC             L01
  8364.        JUMP            L0010
  8365. L0011: CALL_VS         R0317 (L02,#4c) -> -(SP)
  8366.        PRINT_NUM       (SP)+
  8367. L0012: PRINT           "
  8368. "
  8369.        INC             L00
  8370.        JUMP            L0003
  8371. L0013: LOADW           #00,#08 -> Gef
  8372.        AND             #fffd,Gef -> Gef
  8373.        STOREW          #00,#08,Gef
  8374.        RFALSE          
  8375.  
  8376. Routine R0256, 0 locals
  8377.  
  8378.        JE              Ge9,#4c [FALSE] L0001
  8379.        CALL_VN         R0075 (#4c,#003f)
  8380.        RTRUE           
  8381. L0001: JE              Ge9,#0f [FALSE] L0002
  8382.        JIN             G2a,Geb [FALSE] L0002
  8383.        PRINT_RET       "The games are already sorted. If you want to manipulate
  8384. them, push the lever again."
  8385. L0002: RFALSE          
  8386.  
  8387. Routine R0257, 3 locals
  8388.  
  8389.        GET_CHILD       L00 -> -(SP) [FALSE] L0001
  8390. L0001: PULL            L02
  8391.        JZ              L02 [TRUE] L0004
  8392. L0002: CALL_VS         R0322 (L02,#18) -> -(SP)
  8393.        JZ              (SP)+ [TRUE] L0003
  8394.        INC             L01
  8395. L0003: GET_SIBLING     L02 -> L02 [TRUE] L0002
  8396. L0004: RET             L01
  8397.  
  8398. Routine R0258, 3 locals
  8399.  
  8400. L0001: JZ              L01 [FALSE] L0006
  8401.        STORE           L01,#01
  8402.        CALL_1S         R0055 -> -(SP)
  8403.        PULL            Gef
  8404.        JE              Gef,"two","button","buttons" [FALSE] L0002
  8405.        STORE           L01,#00
  8406.        JUMP            L0005
  8407. L0002: JE              Gef,"square" [FALSE] L0004
  8408.        JZ              L02 [FALSE] L0003
  8409.        STORE           L01,#00
  8410.        STORE           L02,#01
  8411. L0003: JUMP            L0005
  8412. L0004: JE              Gef,"round","circular" [FALSE] L0005
  8413.        JZ              L02 [FALSE] L0005
  8414.        STORE           L01,#00
  8415.        STORE           L02,#02
  8416. L0005: INC             L00
  8417.        JUMP            L0001
  8418. L0006: PUT_PROP        Geb,#29,L02
  8419.        SUB             L00,#01 -> -(SP)
  8420.        RET_POPPED      
  8421.  
  8422. Routine R0259, 0 locals
  8423.  
  8424.        GET_PROP        Geb,#29 -> -(SP)
  8425.        PULL            Gef
  8426.        JE              Gef,#00 [FALSE] L0001
  8427.        PRINT_RET       "There are two buttons, a square one marked 'Save Rating
  8428. Information', and a round one marked 'Save All Information'."
  8429. L0001: JE              Gef,#01 [FALSE] L0002
  8430.        PRINT_RET       "The square button is marked 'Save Rating Information'."
  8431. L0002: JE              Gef,#02 [FALSE] L0003
  8432.        PRINT_RET       "The round button is marked 'Save All Information'."
  8433. L0003: RFALSE          
  8434.  
  8435. Routine R0260, 1 local
  8436.  
  8437.        JE              Ge9,#4c,#25 [FALSE] L0003
  8438.        GET_PROP        Geb,#29 -> -(SP)
  8439.        JZ              (SP)+ [FALSE] L0001
  8440.        PRINT_RET       "You'll have to say which button to press."
  8441. L0001: GET_PROP        Geb,#29 -> -(SP)
  8442.        CALL_VN         R0261 (L00,(SP)+)
  8443.        JZ              L00 [TRUE] L0002
  8444.        PRINT_RET       "Your rating information has been saved in the file
  8445. 'rating.txt' (unless you were prompted to change the filename)."
  8446. L0002: PRINT_RET       "I tried to save your rating information, but was told I
  8447. was unsuccessful. (You may wish to check this out for yourself, however,
  8448. particularly if you were prompted for a filename.)"
  8449. L0003: RFALSE          
  8450.  
  8451. Routine R0261, 7 locals
  8452.  
  8453.        PRINT           "Saving,...
  8454. "
  8455.        STORE           Gef,#00
  8456.        GET_CHILD       "rack on the wall" -> -(SP) [FALSE] L0002
  8457. L0001: INC             Gef
  8458.        GET_SIBLING     (SP)+ -> -(SP) [TRUE] L0001
  8459. L0002: PULL            Gee
  8460.        STORE           L06,Gef
  8461.        STORE           L05,#00
  8462. L0003: JL              L05,L06 [FALSE] L0024
  8463.        GET_CHILD       "rack on the wall" -> L02 [FALSE] L0004
  8464. L0004: ADD             L05,#01 -> -(SP)
  8465.        CALL_VS         R0317 (L02,#4d) -> -(SP)
  8466.        JE              (SP)+,(SP)+ [TRUE] L0006
  8467.        JZ              L02 [TRUE] L0006
  8468.        GET_SIBLING     L02 -> L02 [FALSE] L0005
  8469. L0005: JUMP            L0004
  8470. L0006: CALL_VS         R0317 (L02,#4c) -> -(SP)
  8471.        JZ              (SP)+ [FALSE] L0007
  8472.        SUB             L01,#01 -> -(SP)
  8473.        JZ              (SP)+ [TRUE] L0023
  8474. L0007: CALL_VS         R0317 (L02,#4c) -> -(SP)
  8475.        PULL            Gef
  8476.        JE              Gef,#00 [FALSE] L0008
  8477.        STOREB          #2e5e,L03,#5f
  8478.        INC             L03
  8479.        JUMP            L0009
  8480. L0008: JL              Gef,#01 [TRUE] L0009
  8481.        JG              Gef,#09 [TRUE] L0009
  8482.        STOREB          #2e5e,L03,#20
  8483.        INC             L03
  8484. L0009: CALL_VS         R0317 (L02,#4c) -> -(SP)
  8485.        PULL            Gef
  8486.        JE              Gef,#00 [FALSE] L0010
  8487.        STOREB          #2e5e,L03,#5f
  8488.        INC             L03
  8489.        JUMP            L0020
  8490. L0010: JE              Gef,#01 [FALSE] L0011
  8491.        STOREB          #2e5e,L03,#31
  8492.        INC             L03
  8493.        JUMP            L0020
  8494. L0011: JE              Gef,#02 [FALSE] L0012
  8495.        STOREB          #2e5e,L03,#32
  8496.        INC             L03
  8497.        JUMP            L0020
  8498. L0012: JE              Gef,#03 [FALSE] L0013
  8499.        STOREB          #2e5e,L03,#33
  8500.        INC             L03
  8501.        JUMP            L0020
  8502. L0013: JE              Gef,#04 [FALSE] L0014
  8503.        STOREB          #2e5e,L03,#34
  8504.        INC             L03
  8505.        JUMP            L0020
  8506. L0014: JE              Gef,#05 [FALSE] L0015
  8507.        STOREB          #2e5e,L03,#35
  8508.        INC             L03
  8509.        JUMP            L0020
  8510. L0015: JE              Gef,#06 [FALSE] L0016
  8511.        STOREB          #2e5e,L03,#36
  8512.        INC             L03
  8513.        JUMP            L0020
  8514. L0016: JE              Gef,#07 [FALSE] L0017
  8515.        STOREB          #2e5e,L03,#37
  8516.        INC             L03
  8517.        JUMP            L0020
  8518. L0017: JE              Gef,#08 [FALSE] L0018
  8519.        STOREB          #2e5e,L03,#38
  8520.        INC             L03
  8521.        JUMP            L0020
  8522. L0018: JE              Gef,#09 [FALSE] L0019
  8523.        STOREB          #2e5e,L03,#39
  8524.        INC             L03
  8525.        JUMP            L0020
  8526. L0019: JE              Gef,#0a [FALSE] L0020
  8527.        STOREB          #2e5e,L03,#31
  8528.        INC             L03
  8529.        STOREB          #2e5e,L03,#30
  8530.        INC             L03
  8531. L0020: STOREB          #2e5e,L03,#3a
  8532.        ADD             L03,#01 -> -(SP)
  8533.        STOREB          #2e5e,(SP)+,#20
  8534.        ADD             L03,#02 -> L03
  8535.        CALL_VS         R0317 (L02,#5b) -> -(SP)
  8536.        CALL_VN         R0318 ((SP)+,#47,#325e)
  8537.        STORE           L04,#00
  8538. L0021: LOADW           #325e,#00 -> -(SP)
  8539.        JL              L04,(SP)+ [FALSE] L0022
  8540.        ADD             L04,#02 -> -(SP)
  8541.        LOADB           #325e,(SP)+ -> -(SP)
  8542.        ADD             L03,L04 -> -(SP)
  8543.        STOREB          #2e5e,(SP)+,(SP)+
  8544.        INC             L04
  8545.        JUMP            L0021
  8546. L0022: ADD             L03,L04 -> L03
  8547.        STOREB          #2e5e,L03,#0d
  8548.        INC             L03
  8549.        STOREB          #2e5e,L03,#0a
  8550.        INC             L03
  8551. L0023: INC             L05
  8552.        JUMP            L0003
  8553. L0024: SAVE            #2e5e,L03,#32c2 -> L00
  8554.        RTRUE           
  8555.  
  8556. Routine R0262, 0 locals
  8557.  
  8558.        JE              Ge9,#20,#59,#5e [FALSE] L0001
  8559.        JZ              G2b [FALSE] L0001
  8560.        CALL_VS         R0322 (G80,#18) -> -(SP)
  8561.        JZ              (SP)+ [TRUE] L0001
  8562.        CALL_VN         R0075 (#59,G80)
  8563.        RTRUE           
  8564. L0001: RFALSE          
  8565.  
  8566. Routine R0263, 3 locals
  8567.  
  8568.        JIN             "rack on the wall","Competition Headquarters" [TRUE]
  8569. L0001
  8570.        RFALSE          
  8571. L0001: GET_CHILD       "rack on the wall" -> L00 [FALSE] L0002
  8572. L0002: STORE           Gef,#00
  8573.        GET_CHILD       "rack on the wall" -> -(SP) [FALSE] L0004
  8574. L0003: INC             Gef
  8575.        GET_SIBLING     (SP)+ -> -(SP) [TRUE] L0003
  8576. L0004: PULL            Gee
  8577.        STORE           L02,Gef
  8578.        STORE           L01,#01
  8579. L0005: JG              L01,L02 [TRUE] L0010
  8580.        GET_CHILD       "rack on the wall" -> L00 [FALSE] L0006
  8581. L0006: CALL_VS         R0317 (L00,#4d) -> -(SP)
  8582.        JE              (SP)+,L01 [TRUE] L0008
  8583.        GET_SIBLING     L00 -> L00 [FALSE] L0007
  8584. L0007: JUMP            L0006
  8585. L0008: CALL_VS         R0317 (L00,#4c) -> -(SP)
  8586.        JZ              (SP)+ [FALSE] L0009
  8587.        RET             L00
  8588. L0009: INC             L01
  8589.        JUMP            L0005
  8590. L0010: RFALSE          
  8591.  
  8592. Routine R0264, 1 local
  8593.  
  8594.        JE              G2a,Geb [FALSE] L0002
  8595.        CALL_VS         R0318 (Geb,#64) -> L00
  8596.        JZ              L00 [FALSE] L0001
  8597.        PRINT_RET       "You can use 'next' as an alias for the first game down
  8598. the list which you haven't rated. However, there is no 'next' right now."
  8599. L0001: STORE           G2a,L00
  8600. L0002: JE              G2b,Geb [FALSE] L0004
  8601.        CALL_VS         R0318 (Geb,#64) -> L00
  8602.        JZ              L00 [FALSE] L0003
  8603.        PRINT_RET       "You can use 'next' as an alias for the first game down
  8604. the list which you haven't rated. However, there is no 'next' right now."
  8605. L0003: STORE           G2b,L00
  8606. L0004: RFALSE          
  8607.  
  8608. Routine R0265, 0 locals
  8609.  
  8610.        JE              Ge9,#20,#59 [FALSE] L0001
  8611.        CALL_VN         R0318 (#0048,#0067)
  8612.        RTRUE           
  8613. L0001: JE              Ge9,#0f [FALSE] L0002
  8614.        PRINT_RET       "You remove the paper from the wall."
  8615. L0002: JE              Ge9,#10 [FALSE] L0003
  8616.        PRINT_RET       "You tack the paper back up on the wall."
  8617. L0003: RFALSE          
  8618.  
  8619. Routine R0266, 0 locals
  8620.  
  8621.        JE              Ge9,#4c,#4b [FALSE] L0001
  8622.        CALL_VN         R0318 (Geb,#0065)
  8623.        RTRUE           
  8624. L0001: RFALSE          
  8625.  
  8626. Routine R0267, 1 local
  8627.  
  8628.        PRINT           "As you push the button, a panel opens in the wall,
  8629. revealing a huge laser, aimed at you! Before you can react, a green beam of
  8630. light shoots out at you, and you can't move! Suddenly, you find yourself moving
  8631. jerkily around the room.
  8632. "
  8633.        JIN             "rack on the wall","Competition Headquarters" [FALSE]
  8634. L0001
  8635.        PRINT           "
  8636. >PULL LEVER
  8637. "
  8638.        CALL_VN         R0075 (#4b,#3d)
  8639. L0001: PRINT           "
  8640. >DROP ALL
  8641. "
  8642.        CALL_VN         R0253 (G12,#1d)
  8643.        PRINT           "
  8644. Done.
  8645. "
  8646.        PRINT           "
  8647. >GET ALL GAMES FROM EVERYWHERE
  8648. "
  8649.        STORE           L00,#01
  8650. L0002: CALL_VS         R0322 (L00,#18) -> -(SP)
  8651.        JZ              (SP)+ [TRUE] L0003
  8652.        INSERT_OBJ      L00,G12
  8653. L0003: INC             L00
  8654.        JG              L00,#0062 [TRUE] L0004
  8655.        JUMP            L0002
  8656. L0004: PRINT           "
  8657. Done.
  8658. "
  8659.        PRINT           "
  8660. >PUT ALL GAMES INTO PLAYABLE BIN
  8661. "
  8662.        CALL_VN         R0253 (G12,#1f)
  8663.        PRINT           "
  8664. Done.
  8665. "
  8666.        PRINT           "
  8667. >PULL LEVER
  8668. "
  8669.        CALL_VN         R0075 (#4b,#3d)
  8670.        PRINT           "
  8671. >PUSH ROUND BUTTON
  8672. "
  8673.        PUT_PROP        "two buttons",#29,#02
  8674.        CALL_VN         R0075 (#4c,#3f)
  8675.        PRINT           "
  8676. The laser pauses, and seems about to retract. Then it seems to think better of
  8677. it, and controls your actions one more time, for good measure."
  8678.        PRINT           "
  8679. >SCRIPT ON
  8680. "
  8681.        CALL_2N         R0075 (#06)
  8682.        PRINT           "
  8683. >EXAMINE RACK
  8684. "
  8685.        CALL_VN         R0075 (#20,#3e)
  8686.        PRINT           "
  8687. >SCRIPT OFF
  8688. "
  8689.        CALL_2N         R0075 (#07)
  8690.        PRINT_RET       "
  8691. Just as suddenly as it started, the laser releases you, and disappears back
  8692. behind the panel. You are quite dazed, and the sparkles before your eyes seem
  8693. to spell out "That's it! You can print out your list and go play the games
  8694. now!" before they fade into nothingness."
  8695.  
  8696. Routine R0268, 4 locals
  8697.  
  8698.        LOADB           #00,#21 -> G83
  8699.        ERASE_WINDOW    #ffff
  8700.        SPLIT_WINDOW    L00
  8701.        SET_WINDOW      #01
  8702.        SET_CURSOR      #01,#01
  8703.        SET_TEXT_STYLE  REVERSE
  8704.        STORE           Gef,G83
  8705.        JL              Gef,#01 [TRUE] L0002
  8706. L0001: PRINT_CHAR      ' '
  8707.        DEC             Gef
  8708.        JZ              Gef [FALSE] L0001
  8709. L0002: JZ              G04 [FALSE] L0003
  8710.        SET_CURSOR      #01,#01
  8711.        JUMP            L0005
  8712. L0003: STOREW          #32cd,#00,#80
  8713.        OUTPUT_STREAM   REDIRECT_ENABLE,#32cd
  8714.        CALL_2N         R0104 (Geb)
  8715.        JE              L02,#01 [TRUE] L0004
  8716.        PRINT           " ["
  8717.        PRINT_NUM       L01
  8718.        PRINT           "/"
  8719.        PRINT_NUM       L02
  8720.        PRINT           "]"
  8721. L0004: OUTPUT_STREAM   #fffd
  8722.        LOADW           #32cd,#00 -> -(SP)
  8723.        SUB             G83,(SP)+ -> -(SP)
  8724.        DIV             (SP)+,#02 -> L03
  8725.        SET_CURSOR      #01,L03
  8726. L0005: CALL_2N         R0104 (Geb)
  8727.        JE              L02,#01 [TRUE] L0006
  8728.        PRINT           " ["
  8729.        PRINT_NUM       L01
  8730.        PRINT           "/"
  8731.        PRINT_NUM       L02
  8732.        PRINT           "]"
  8733. L0006: LOADW           #32cd,#00 -> -(SP)
  8734.        RET_POPPED      
  8735.  
  8736. Routine R0269, 0 locals
  8737.  
  8738.        CALL_VN2        R0318 (Geb,#66,#01,#01,#01)
  8739.        SET_WINDOW      #00
  8740.        LOADW           #00,#08 -> Gef
  8741.        AND             #fffd,Gef -> Gef
  8742.        STOREW          #00,#08,Gef
  8743.        SET_TEXT_STYLE  ROMAN
  8744.        NEW_LINE        
  8745.        NEW_LINE        
  8746.        CALL_VS         R0321 (Geb,#23) -> -(SP)
  8747.        JZ              (SP)+ [TRUE] L0001
  8748.        CALL_VS         R0318 (Geb,#23) -> -(SP)
  8749.        RET_POPPED      
  8750. L0001: PRINT_RET       "[No text written for this option.]
  8751. "
  8752.  
  8753. Routine R0270, 12 locals
  8754.  
  8755.        LOADB           #00,#21 -> G83
  8756.        LOADB           #00,#20 -> G84
  8757.        JE              G84,#00,#ff [FALSE] L0001
  8758.        STORE           G84,#12
  8759. L0001: SUB             G84,#07 -> G84
  8760.        STORE           L0a,#00
  8761.        STORE           L02,#01
  8762. L0002: JIN             L02,Geb [FALSE] L0003
  8763.        CALL_VS         R0322 (L02,#45) -> -(SP)
  8764.        JZ              (SP)+ [TRUE] L0003
  8765.        INC             L0a
  8766. L0003: INC             L02
  8767.        JG              L02,#0062 [TRUE] L0004
  8768.        JUMP            L0002
  8769. L0004: JZ              L0a [FALSE] L0005
  8770.        RET             #02
  8771. L0005: DIV             L0a,G84 -> -(SP)
  8772.        ADD             #01,(SP)+ -> L09
  8773.        STORE           L06,#06
  8774.        STORE           L08,#01
  8775.        STORE           L04,L06
  8776. L0006: SUB             L08,#01 -> -(SP)
  8777.        MUL             (SP)+,G84 -> L0b
  8778.        ADD             #07,L00 -> -(SP)
  8779.        CALL_VN2        R0318 (Geb,#66,(SP)+,L08,L09)
  8780.        SET_CURSOR      #02,#01
  8781.        STORE           Gef,G83
  8782.        JL              Gef,#01 [TRUE] L0008
  8783. L0007: PRINT_CHAR      ' '
  8784.        DEC             Gef
  8785.        JZ              Gef [FALSE] L0007
  8786. L0008: SET_CURSOR      #02,#02
  8787.        PRINT_PADDR     S020
  8788.        SUB             G83,#0c -> L01
  8789.        SET_CURSOR      #02,L01
  8790.        PRINT_PADDR     S021
  8791.        SET_CURSOR      #03,#01
  8792.        STORE           Gef,G83
  8793.        JL              Gef,#01 [TRUE] L0010
  8794. L0009: PRINT_CHAR      ' '
  8795.        DEC             Gef
  8796.        JZ              Gef [FALSE] L0009
  8797. L0010: SET_CURSOR      #03,#02
  8798.        PRINT_PADDR     S024
  8799.        SUB             G83,#11 -> L01
  8800.        SET_CURSOR      #03,L01
  8801.        CALL_VS         R0322 (Gea,#45) -> -(SP)
  8802.        JZ              (SP)+ [TRUE] L0011
  8803.        PRINT_PADDR     S023
  8804.        JUMP            L0012
  8805. L0011: PRINT_PADDR     S022
  8806. L0012: SET_TEXT_STYLE  ROMAN
  8807.        STORE           L00,L06
  8808.        STORE           L01,#00
  8809.        STORE           L02,#01
  8810. L0013: JIN             L02,Geb [FALSE] L0015
  8811.        CALL_VS         R0322 (L02,#45) -> -(SP)
  8812.        JZ              (SP)+ [TRUE] L0015
  8813.        JL              L01,L0b [TRUE] L0014
  8814.        ADD             L0b,G84 -> -(SP)
  8815.        JL              L01,(SP)+ [FALSE] L0014
  8816.        SET_CURSOR      L00,#06
  8817.        CALL_2N         R0104 (L02)
  8818.        INC             L00
  8819. L0014: INC             L01
  8820. L0015: INC             L02
  8821.        JG              L02,#0062 [TRUE] L0016
  8822.        JUMP            L0013
  8823. L0016: SUB             L00,#01 -> L07
  8824.        STORE           L05,#00
  8825. L0017: JE              L04,L05 [TRUE] L0019
  8826.        JZ              L05 [TRUE] L0018
  8827.        SET_CURSOR      L05,#04
  8828.        PRINT           " "
  8829. L0018: SET_CURSOR      L04,#04
  8830.        PRINT           ">"
  8831. L0019: STORE           L05,L04
  8832.        READ_CHAR       #01 -> L03
  8833.        JE              L03,#4e,#6e,#82 [FALSE] L0023
  8834.        INC             L04
  8835.        JG              L04,L07 [FALSE] L0022
  8836.        STORE           L04,L06
  8837.        JG              L09,#01 [FALSE] L0022
  8838.        JE              L08,L09 [FALSE] L0020
  8839.        STORE           L08,#01
  8840.        JUMP            L0021
  8841. L0020: INC             L08
  8842. L0021: JUMP            L0006
  8843. L0022: JUMP            L0017
  8844. L0023: JE              L03,#50,#70,#81 [FALSE] L0027
  8845.        DEC             L04
  8846.        JL              L04,L06 [FALSE] L0026
  8847.        STORE           L04,L07
  8848.        JG              L09,#01 [FALSE] L0026
  8849.        JE              L08,#01 [FALSE] L0024
  8850.        STORE           L08,L09
  8851.        MOD             L0a,G84 -> -(SP)
  8852.        ADD             L06,(SP)+ -> -(SP)
  8853.        SUB             (SP)+,#01 -> L04
  8854.        JUMP            L0025
  8855. L0024: DEC             L08
  8856.        ADD             L06,G84 -> -(SP)
  8857.        SUB             (SP)+,#01 -> L04
  8858. L0025: JUMP            L0006
  8859. L0026: JUMP            L0017
  8860. L0027: JE              L03,#51,#71,#1b [TRUE] L0028
  8861.        JE              L03,#83 [FALSE] L0029
  8862. L0028: JUMP            L0037
  8863. L0029: JE              L03,#0a,#0d,#84 [FALSE] L0036
  8864.        STORE           L00,#00
  8865.        STORE           L02,#01
  8866. L0030: JIN             L02,Geb [FALSE] L0032
  8867.        CALL_VS         R0322 (L02,#45) -> -(SP)
  8868.        JZ              (SP)+ [TRUE] L0032
  8869.        ADD             L0b,L04 -> -(SP)
  8870.        SUB             (SP)+,L06 -> -(SP)
  8871.        JE              L00,(SP)+ [FALSE] L0031
  8872.        JUMP            L0033
  8873. L0031: INC             L00
  8874. L0032: INC             L02
  8875.        JG              L02,#0062 [TRUE] L0033
  8876.        JUMP            L0030
  8877. L0033: CALL_VS         R0318 (L02,#67) -> -(SP)
  8878.        PULL            Gef
  8879.        JE              Gef,#02 [FALSE] L0034
  8880.        JUMP            L0006
  8881. L0034: JE              Gef,#03 [FALSE] L0035
  8882.        JUMP            L0037
  8883. L0035: CALL_VN         R0236 (#1007,#35)
  8884.        READ_CHAR       #01 -> L03
  8885.        JUMP            L0006
  8886. L0036: JUMP            L0017
  8887. L0037: CALL_VS         R0322 (Gea,#45) -> -(SP)
  8888.        JZ              (SP)+ [TRUE] L0038
  8889.        RET             #02
  8890. L0038: LOADW           #00,#08 -> Gef
  8891.        AND             #fffd,Gef -> Gef
  8892.        STOREW          #00,#08,Gef
  8893.        SET_CURSOR      #01,#01
  8894.        ERASE_WINDOW    #ffff
  8895.        SET_WINDOW      #00
  8896.        NEW_LINE        
  8897.        NEW_LINE        
  8898.        NEW_LINE        
  8899.        JZ              G13 [FALSE] L0039
  8900.        CALL_2N         R0075 (#1f)
  8901.        RTRUE           
  8902. L0039: RET             #02
  8903.  
  8904. Routine R0271, 0 locals
  8905.  
  8906.        PRINT_OBJ       Geb
  8907.        PRINT           " "
  8908.        TEST_ATTR       Geb,#0d [FALSE] L0001
  8909.        PRINT           "(on)"
  8910.        JUMP            L0002
  8911. L0001: PRINT           "(off)"
  8912. L0002: RTRUE           
  8913.  
  8914. Routine R0272, 0 locals
  8915.  
  8916.        TEST_ATTR       Geb,#0d [FALSE] L0001
  8917.        CLEAR_ATTR      Geb,#0d
  8918.        JUMP            L0002
  8919. L0001: SET_ATTR        Geb,#0d
  8920. L0002: RET             #02
  8921.  
  8922. Routine R0273, 0 locals
  8923.  
  8924.        PRINT           "The bins are for sorting the "
  8925.        CALL_2N         R0105 (#1b)
  8926.        PRINT_RET       " games in this contest. They all start out in the
  8927. 'unsorted' bin, predictably. The 'playable' bin is for games you have the
  8928. capacity to play. For example, if you can play this game, chances are you can
  8929. play other Inform games. Since you know that, simply 'GET ALL INFORM GAMES FROM
  8930. UNSORTED BIN', then 'PUT ALL INFORM GAMES INTO PLAYABLE BIN'. You can also type
  8931. commands like 'PUT ALL DOS GAMES IN PLAYABLE BIN'. [Note: It is probably
  8932. easiest to type 'GET ALL GAMES' at the beginning, since this is hardcoded in to
  8933. give you all the games. 'GET ALL INFORM GAMES' and its ilk will give you the
  8934. standard Inform response, which is to deny that they exist. Go bug Graham about
  8935. it, not me.] You can examine any individual game to find out if you can play it
  8936. or not. Any game you cannot play (due to not having a computer which can play
  8937. it, for example), put it in the 'unplayable' bin. Likewise, if you feel you
  8938. must exempt yourself from playing a particular game, due to having a prior bias
  8939. for or against it (say, you betatested the game, or you have strong feelings
  8940. about issues raised in it), you can put it in the 'unplayable' bin as well.
  8941. Note that this is a personal choice, and not a requirement."
  8942.  
  8943. Routine R0274, 0 locals
  8944.  
  8945.        PRINT           " The Second Annual Text Adventure Authorship
  8946. Competition
  8947.  
  8948. Administered by whizzard@uclink.berkeley.edu
  8949.  
  8950. "He that judges without informing himself to the utmost that he is capable,
  8951. cannot acquit himself of judging amiss."
  8952. - John Locke, _An Essay Concerning Human Understanding_
  8953.  
  8954. -=Introduction=-
  8955.  
  8956. "
  8957.        PRINT           " Many years ago, a game was written by two people named
  8958. Crowther and Woods. The game was called, variously _Adventure_, and _Collosal
  8959. Cave_. It used a text parser that the player could communicate with by typing
  8960. in commands, and it formed the foundation of many, if not most, of today's
  8961. computer games. The interface may have changed, but deep down, many of today's
  8962. gaming conventions are holdovers from that long ago game.
  8963.  
  8964. "
  8965.        PRINT           " Last year, a competition was held on the internet.
  8966. Enthusiasts of text based games wrote short games and posted them for others to
  8967. play and enjoy. The players voted on which game they liked best, and the games
  8968. that got the best response had their pick of prizes from a prize pool. Later, 6
  8969. of those games were put on Activision's _Classic Text Adventure Masterpieces of
  8970. Infocom_ collection, and the authors received a pretty nice payment in return.
  8971.  
  8972. "
  8973.        PRINT_RET       " This year, we're going to do it again, and you have
  8974. the chance to be a part of this event. However, while last year's competition
  8975. had only 12 games entered, this year's has a grand total of 27 entries. That's
  8976. more text adventures than you can shake a stick at. To participate, just read
  8977. the section on Judging and follow the instructions there."
  8978.  
  8979. Routine R0275, 0 locals
  8980.  
  8981.        PRINT           " The judging will be a 'People's Choice Awards' type
  8982. deal for the most part. Everyone is able to vote. All you have to do is play
  8983. every game that you are able to (you are bound on your honor to play as many as
  8984. possible and give each of them an equal chance.) and then rate each game on a
  8985. scale of 1 to 10, no decimal places please. You have 2 hours in which to rate
  8986. each game. At the end of 2 hours, you should stop and rank the game
  8987. immediately. You may continue to play the game after that, but you may not
  8988. change your rating of it based upon anything you find after the 2 hours are up.
  8989. Please be honest. The site to mail votes to is:
  8990.  
  8991. "
  8992.        PRINT           " ct@ecs.ox.ac.uk (Colin Turnbull)
  8993.  
  8994. "
  8995.        PRINT           " Let's all give him a big round of applause.
  8996.  
  8997. "
  8998.        PRINT           " Please note that this is not my address. If you email
  8999. me votes I will trash them without notice and without looking at them, because
  9000. I am a big meanie.
  9001.  
  9002. "
  9003.        PRINT           " Messages with votes in them should have a subject
  9004. header of: VOTE (unless you are entered in the competition or served as a
  9005. betatester for one of the entries, in which case it should be MISS
  9006. CONGENIALITY)  Each game should be rated on a seperate line, and you may submit
  9007. multiple votes, but only the latest dated ratings of each game will be kept.
  9008.  
  9009. "
  9010.        PRINT           " Votes will begin to be taken on Oct. 20, and must be
  9011. in by Nov 30. Shortly thereafter, results will be announced, and prizes will
  9012. begin to be distributed to the winners. For those of you who know how much
  9013. different this timescale is from the original, please just note that there are
  9014. many more entries than were expected, so more time has to be allowed for
  9015. everyone to play them. At 2 hours apiece, that's still over 50 hours of play
  9016. time total.
  9017.  
  9018. "
  9019.        PRINT           " Any game that does not receive at least 10 votes on it
  9020. is removed from prize consideration.
  9021.  
  9022. "
  9023.        PRINT           " The winner will be the game with the highest average
  9024. score. Each winner will have a draft pick to choose a prize of his/her choice
  9025. until there are no longer any prizes left. Tied entrants who both select the
  9026. same prize will be decided between by a flip of the coin, the loser receiving
  9027. his second choice.
  9028.  
  9029. "
  9030.        PRINT_RET       " Authors and official betatesters may vote, but must
  9031. head their votes with the subject: "MISS CONGENIALITY VOTE" so that the counter
  9032. is able to seperate them. These votes will be counted towards an author's best
  9033. of show choice. The winner will receive a copy of "The Interactive Writer's
  9034. Handbook", donated by me."
  9035.  
  9036. Routine R0276, 0 locals
  9037.  
  9038.        PRINT           " -=The Rules=-
  9039.  
  9040. "
  9041.        PRINT           " The text adventure you enter must be winnable in under
  9042. two hours. Judges will be asked to rate it after playing for that long. Please
  9043. note that your game will NOT be disqualified if it exceeds this length, but
  9044. judges may not see it in its entirety before rating it.
  9045.  
  9046. "
  9047.        PRINT           " The entry may be written in any programming language,
  9048. including any of the text adventure creation utilities available (such as TADS,
  9049. Inform, AGT, or Alan, to name a few.)  If your game is unplayable, then it
  9050. won't receive enough votes to be eligable for prizes. (See Judging.)
  9051.  
  9052. "
  9053.        PRINT           " This year, do NOT post your entries ahead of time.
  9054. Jumping the gun is punishable by disqualification. Instead, you will need to
  9055. send me your entries privately, either through e-mail (as a uuencoded file) or
  9056. some other arrangement that you will have to work out with me. The entries must
  9057. be received by September 30th, 1996. No entries will be accepted after this
  9058. date.
  9059.  
  9060. "
  9061.        PRINT           " Entries will be sent by me to ftp.gmd.de on October
  9062. 1st, 1996. Only entries uploaded by me will be eligible.
  9063.  
  9064. "
  9065.        PRINT           " If you want your entry to be anonymous, then leave
  9066. your name off it and email me that it's your entry. I advise a secret command
  9067. that pops up the author and copyright message. Anonymity is not required, and I
  9068. hope to be able to continue to do this in the future.
  9069.  
  9070. "
  9071.        PRINT           " Speaking of copyright, all games must be entirely your
  9072. own creations. You may parody established works, but you may not, for example,
  9073. write a game based on Sherlock Holmes. This avoids the entire issue of
  9074. copyright and the ethics involved.
  9075.  
  9076. "
  9077.        PRINT           " All entries MUST be freeware or public domain. So
  9078. don't enter a game you've worked on for 2 years if you don't want to give it
  9079. away. No shareware, no donorware, no commercial products, etc. Only clear and
  9080. free games.
  9081.  
  9082. "
  9083.        PRINT_RET       " Lastly, and this is a NEW rule, somewhat controversial
  9084. at that. All entries must include some sort of walkthrough. By this I only mean
  9085. that somewhere in the game package there must be explicit directions on how to
  9086. play the game from beginning to end, and that this info must be available to
  9087. the player from the very start of the game. A walkthrough is fine, as is a hint
  9088. system that progresses all the way to blatant spoilers. If you like, you could
  9089. even have an NPC take over for the PC if enough time has been spent on a single
  9090. puzzle. I don't care how you do it, but do it. Any entry without something of
  9091. this nature will be returned to its author, and the author will be asked to
  9092. rectify the oversight."
  9093.  
  9094. Routine R0277, 0 locals
  9095.  
  9096.        PRINT           " $75.00 cash, donated by Martin Braun.
  9097.  
  9098. "Creating Adventure Games on Your Computer", by Tim Hartnell. Copyright 1984,
  9099. donated by Matthew Amster-Burton.
  9100.  
  9101. The original sketch of the "Path to Fortune" map, donated by Christopher E.
  9102. Forman.
  9103.  
  9104. A registered copy of "Lost New York" (which includes on-screen hints, a manual,
  9105. and some goodies), donated by the author, Neil deMause.
  9106.  
  9107. 5 copies of the book: "Computer Adventures - The Secret Art", donated by the
  9108. author, Gil Williamson.
  9109.  
  9110. A PC copy of the Magnetic Scrolls Collection which includes Fish, Corruption
  9111. and the Guild of Thieves, donated by Colm McCarthy.
  9112.  
  9113. "One-of-a-kind deluxe scraps of paper with stuff written on them"
  9114. registered version of "The Light: Shelby's Addendum", signed, with hint sheets
  9115. and maps, and a whole mess of scribblings that no-one in their right mind would
  9116. ever want, donated by Colm McCarthy.
  9117.  
  9118. One free copy of "Avalon", whenever it's done, donated by the author, me, as if
  9119. you didn't know.
  9120.  
  9121. "
  9122.        PRINT           " Cecilia Barajas of Activision (Author of Zork Nemesis)
  9123. has donated the following items:
  9124. -A copy of "Lost Treasures of Infocom vols. 1 and 2." (to be awarded as a
  9125. matched set.)
  9126. -A copy of "Zork Nemesis."
  9127. -A Zork Nemesis t-shirt
  9128.  
  9129. "
  9130.        PRINT           " Andrew C. Plotkin (Last Year's Inform Winner) offers
  9131. the awardee's choice of:
  9132. A) Dinner at a (pretty) fine restaurant in the Washington, DC area, with me,
  9133. plus hours of fine conversation on the art of interactive fiction or other
  9134. topics as desired.
  9135.  
  9136. or
  9137.  
  9138. B) $20.00 cash (US), plus I'll email you some of my old posts from r.a.i-f.
  9139.  
  9140. "
  9141.        PRINT           " Lastly, assuming that:
  9142.  
  9143. 1) We have at least 20 entries in the competition. (By that, I mean 20 valid,
  9144. on-time, non-disqualified entries.)
  9145.  
  9146. 2) At least 5 of the entries are done by female authors.
  9147.  
  9148. "
  9149.        PRINT_RET       " Then Christopher Forman will also award five free
  9150. registrations of "Circle of Armageddon", Volume 2 of "The Windhall Chronicles".
  9151.  
  9152. Thank you to all prize contributors for helping to make this yeat's contest a
  9153. reality."
  9154.  
  9155. Routine R0278, 0 locals
  9156.  
  9157.        PRINT           " All games entered in this year's competition are
  9158. freeware. You may play any of them without being expected to pay a fee, mail a
  9159. postcard, or even blow your nose.
  9160.  
  9161. "
  9162.        PRINT_RET       " All games are copyrights of the respective authors. I
  9163. make no claims on them, but I do disclaim that any games that violate another's
  9164. copyrights are in violation of the rules set down for this competition."
  9165.  
  9166. Routine R0279, 0 locals
  9167.  
  9168.        PRINT           " Lastly, for those of you unfamiliar with the online
  9169. resources available to text adventure authors, here are some interesting
  9170. sources.
  9171.  
  9172. "
  9173.        PRINT           " ftp://ftp.gmd.de/if-archive/
  9174. Main directory for the interactive fiction (text adventure) archive. It is
  9175. mirrored at several sites, but the info escapes me for the moment.
  9176.  
  9177. "
  9178.        PRINT           " ftp://ftp.gmd.de/if-archive/programming/
  9179. The location of several programs designed to help authors write text
  9180. adventures. I recommend TADS, Inform, Hugo, Alan, or AGT, particularly the
  9181. first two: TADS and Inform. Please see the relevant directories for further
  9182. info.
  9183.  
  9184. "
  9185.        PRINT           " ftp://ftp.gmd.de/if-archive/info/authorship-guide.base
  9186. The main document for Whizzard's Guide to Text Adventure Authorship. This is
  9187. something I wrote to give ideas to prospective authors, mostly dealing with the
  9188. non-technical aspects of writing text adventures.
  9189.  
  9190. "
  9191.        PRINT           "
  9192. ftp://ftp.gmd.de/if-archive/info/Craft.Of.Adventure.txt
  9193. A file by Graham Nelson also discussing the less technical aspects of how to
  9194. write text adventures. Included is a Player's Bill of Rights that is very
  9195. useful.
  9196.  
  9197. "
  9198.        PRINT           " ftp://ftp.gmd.de/if-archive/info/Index
  9199. A filelist that lists numerous other helpful files for new text adventure
  9200. authors to peruse.
  9201.  
  9202. "
  9203.        PRINT           " Newsgroups:
  9204.  
  9205. "
  9206.        PRINT           " REC.ARTS.INT-FICTION
  9207. For the use of text adventure authors in discussing the mechanics and other
  9208. important topics of text adventure creation. Important contest announcements
  9209. will be posted here.
  9210.  
  9211. "
  9212.        PRINT_RET       " REC.GAMES.INT-FICTION
  9213. For the players of text adventures to discuss games and hints, and to buy/sell
  9214. used text adventures."
  9215.  
  9216. Routine R0280, 0 locals
  9217.  
  9218.        PRINT           " Announcing the Third Annual Text Adventure Authorship
  9219. Competition
  9220.  
  9221. Administered by whizzard@uclink.berkeley.edu
  9222.  
  9223. "
  9224.        PRINT           " "Third time's the charm."
  9225. -Most Common Programmer Saying, right after "&$%&@%!!"
  9226.  
  9227. "
  9228.        PRINT_RET       " Text adventures still exist and thrive on the
  9229. Internet. If you enjoyed Zork, Trinity, Corruption, or any of the many other
  9230. text based games put out in the 70's and 80's, then I'm sure you'll be pleased
  9231. to hear that. You'll be even happier when you find out that there is an annual
  9232. competition on the Internet to see who can write the best text adventure, and
  9233. that you can enter it, or judge the entries, for free."
  9234.  
  9235. Routine R0281, 0 locals
  9236.  
  9237.        PRINT           " This year's competition is a bit different in that the
  9238. rules are stricter and better defined. Violaters of any rule will be given a
  9239. warning the first time, and disqualified if a second transgression is made.
  9240. Sorry for the harsh crackdown, but it seems to be neccessary to ensure a
  9241. tranquil and pleasant competition for all.
  9242.  
  9243. "
  9244.        PRINT           " 1. Any text adventure you enter must be winnable in
  9245. under two hours. The judges are only allowed to play it that long before
  9246. quitting and rating it. This is to ensure small games, and encourage authors to
  9247. enter who might feel intimidated going up against a huge game.
  9248.  
  9249. "
  9250.        PRINT           " 2. All games must be entirely your own creations. You
  9251. may parody established works, but you may not, for example, write a game based
  9252. on Sherlock Holmes. This avoids the entire issue of copyright and the ethics
  9253. involved.
  9254.  
  9255. "
  9256.        PRINT           " 3. All entries MUST be freeware or public domain. So
  9257. don't enter a game you've worked on for 2 years if you don't want to give it
  9258. away. No shareware, no donorware, no commercial products, etc. Only clear and
  9259. free games.
  9260.  
  9261. "
  9262.        PRINT           " 4. All entries must be previously unreleased at the
  9263. opening of voting. If an entry has previously been circulated, it will be
  9264. disqualified. If you are unsure whether your game fails to meet this rule,
  9265. please ask me.
  9266.  
  9267. "
  9268.        PRINT_RET       " 5. Authors of a competition entry may not discuss the
  9269. entries in a public Internet forum while the voting is open. This means don't
  9270. post about your entry (or anyone else's) on a newsgroup until the deadline for
  9271. voting has passed."
  9272.  
  9273. Routine R0282, 0 locals
  9274.  
  9275.        PRINT           " 1. It is recommended that you enclose a complete text
  9276. walkthrough with your game. With a walkthrough, I can doublecheck your entry to
  9277. ensure that it is winnable, and judges can get by hard puzzles to see the rest
  9278. of your game.
  9279.  
  9280. "
  9281.        PRINT           " 2. The entry may be written in any programming
  9282. language, including any of the text adventure creation utilities available
  9283. (such as TADS, Inform, AGT, or Alan, to name a few.)  If your game is
  9284. unplayable, then it won't receive enough votes to be eligable for prizes. (See
  9285. Judging.)
  9286.  
  9287. "
  9288.        PRINT           " 3. Multiple entries by the same author are fine, so
  9289. long as all entries meet all the rules above. Let me just close this with a
  9290. caveat emptor. You will likely be better off investing more time in a single
  9291. entry rather than trying to finish two.
  9292.  
  9293. "
  9294.        PRINT           " 4. To enter this year, you must e-mail me by September
  9295. 1, 1997, with your intent to enter. I will assign you an author number, and a
  9296. telnet-accessed e-mail address that you can receive feedback on your game at
  9297. until the voting period has ended.
  9298.  
  9299. "
  9300.        PRINT_RET       " 5. You will need to e-mail me your entry privately,
  9301. either through e-mail (as a uuencoded file) or some other arrangement that you
  9302. will have to work out with me. The entries must be received by September 30th,
  9303. 1997. No entries will be accepted after this date."
  9304.  
  9305. Routine R0283, 0 locals
  9306.  
  9307.        PRINT           " 1. The winner will be the game with the highest
  9308. average score. Each winner will have a draft pick to choose a prize of his/her
  9309. choice until there are no longer any prizes left. Tied entrants who both select
  9310. the same prize will be decided between by a flip of the coin, the loser
  9311. receiving his second choice.
  9312.  
  9313. "
  9314.        PRINT           " The Prizes So Far Include:
  9315.  
  9316. "
  9317.        PRINT_RET       "* $100 cash, donated by Martin Braun 
  9318.  
  9319. * A cash award of UKP50 (about $70-75 US), donated by Dylan O'Donnell 
  9320.  
  9321. * Planetfall the novel, donated by Martin Braun 
  9322.  
  9323. * A copy of Michael Berlyn's novel, The Integrated Man, donated by Jay Goemmer 
  9324.  
  9325. * Shogun on 3.5" disk for IBM, in shrinkwrap, donated by David Gasior 
  9326.  
  9327. * A copy of Neil deMause and Joanna Cagan's currently untitled book on
  9328. corporate welfare and 8sports, donated by Neil deMause. 
  9329.  
  9330. Trophies will be awarded for first, second, and third place in addition to the
  9331. normal prize picks.
  9332.  
  9333. Trophies donated by Kevin Wilson. This is likely to be a fairly expensive
  9334. prospect, so donations of money (or trophy-making talents) are needed this year
  9335. as well. 
  9336.  
  9337. If you would like to donate a prize for this year's competition, please contact
  9338. me as soon as possible with your prize. The competition is dependent on prize
  9339. donations from interested parties to boost interest and the number of
  9340. entrants."
  9341.  
  9342. Routine R0284, 0 locals
  9343.  
  9344.        PRINT_RET       "At one point, Whizzard considered requiring all entries
  9345. to be anonymous. This quickly turned out to be more trouble than it was worth,
  9346. so he dropped the idea. However, there was still interest in the option of
  9347. anonymity, so some people looked into the prospect of anonymous remailers.
  9348.  
  9349. Here's a post from r.a.i-f from Matt Kimball, aka mkimball@xmission.com:
  9350.  
  9351.  
  9352. *********************
  9353.  
  9354. "With Whizzard's blessing, I have managed to get an anonymous remailer up and
  9355. running using the ifcompetition.org domain. Any author desiring to enter this
  9356. year's competition anonymously is encouraged to mail mail me with his or her
  9357. preferred address at ifcompetition.org. All addresses are limited to the form
  9358. 'xxxx@ifcompetition.org'. 
  9359.  
  9360. For a complete description of functionality the remailer, send a message to
  9361. 'instructions@ifcompetition.org' and you will receive an automated reply
  9362. describing the use of the remailer. 
  9363.  
  9364. Due to load constraints on the machine that the mailer is running on, I will
  9365. only be giving accounts for use with the IF competition. If you want a remailer
  9366. account for general use, you should look elsewhere. Thank you for
  9367. understanding."
  9368.  
  9369. *********************
  9370.  
  9371.  
  9372. It was later added that even if someone does not want to enter anonymously,
  9373. they may still use this remailer for use in the competition."
  9374.  
  9375. Routine R0285, 0 locals
  9376.     Action routine for:
  9377.         "read noun"
  9378.  
  9379.        CALL_VN         R0075 (#20,G2a)
  9380.        RTRUE           
  9381.  
  9382. Routine R0286, 1 local
  9383.  
  9384.        JE              L00,"rate" [FALSE] L0001
  9385.        PRINT           "rate"
  9386.        RTRUE           
  9387. L0001: RFALSE          
  9388.  
  9389. Routine R0287, 0 locals
  9390.     Parsing routine for:
  9391.         "go noun = [parse $44f3]"
  9392.         "leave noun = [parse $44f3]"
  9393.  
  9394.        JIN             G2a,"compass" [TRUE] RTRUE
  9395.        RFALSE          
  9396.  
  9397. Routine R0288, 1 local
  9398.  
  9399.        STORE           G3c,G73
  9400. L0001: CALL_1S         R0056 -> L00
  9401.        JE              L00,#ffff [TRUE] L0002
  9402.        JE              L00,S016 OR "to" [FALSE] L0001
  9403.        JE              G4e,#52 [FALSE] L0001
  9404. L0002: DEC             G73
  9405.        SUB             G73,G3c -> G3d
  9406.        JZ              G3d [FALSE] L0003
  9407.        RET             #ffff
  9408. L0003: JE              G4e,#53,#52,#51 [FALSE] L0005
  9409.        STORE           L00,G73
  9410.        STORE           G73,G3c
  9411.        CALL_1S         R0055 -> G3b
  9412.        JE              G3b,"the" [FALSE] L0004
  9413.        JG              G3d,#01 [FALSE] L0004
  9414.        CALL_1S         R0055 -> G3b
  9415. L0004: STORE           G73,L00
  9416.        RTRUE           
  9417. L0005: RFALSE          
  9418.  
  9419. Routine R0289, 0 locals
  9420.  
  9421.        RFALSE          
  9422.  
  9423. Routine R0290, 0 locals
  9424.  
  9425.        RFALSE          
  9426.  
  9427. Routine R0291, 0 locals
  9428.  
  9429.        RFALSE          
  9430.  
  9431. Routine R0292, 0 locals
  9432.  
  9433.        RFALSE          
  9434.  
  9435. Routine R0293, 0 locals
  9436.  
  9437.        RFALSE          
  9438.  
  9439. Routine R0294, 0 locals
  9440.  
  9441.        RFALSE          
  9442.  
  9443. Routine R0295, 0 locals
  9444.  
  9445.        RFALSE          
  9446.  
  9447. Routine R0296, 0 locals
  9448.  
  9449.        RFALSE          
  9450.  
  9451. Routine R0297, 0 locals
  9452.  
  9453.        RFALSE          
  9454.  
  9455. Routine R0298, 0 locals
  9456.  
  9457.        RFALSE          
  9458.  
  9459. Routine R0299, 0 locals
  9460.  
  9461.        RFALSE          
  9462.  
  9463. Routine R0300, 1 local
  9464.  
  9465.        RFALSE          
  9466.  
  9467. Routine R0301, 1 local
  9468.  
  9469.        RFALSE          
  9470.  
  9471. Routine R0302, 1 local
  9472.  
  9473.        RFALSE          
  9474.  
  9475. Routine R0303, 1 local
  9476.  
  9477.        RFALSE          
  9478.  
  9479. Routine R0304, 2 locals
  9480.  
  9481.        RFALSE          
  9482.  
  9483. Routine R0305, 2 locals
  9484.  
  9485.        RFALSE          
  9486.  
  9487. Routine R0306, 0 locals
  9488.  
  9489.        PRINT_RET       "."
  9490.  
  9491. Routine R0307, 1 local
  9492.  
  9493.        STORE           L00,L00
  9494.        RET             #ffff
  9495.  
  9496. Routine R0308, 0 locals
  9497.     Action routine for:
  9498.         "l at noun on / of / from noun"
  9499.         "l at noun noun" REVERSE
  9500.         "check noun on / of / from noun"
  9501.         "check noun noun" REVERSE
  9502.         "read noun on / of / from noun"
  9503.         "read noun noun" REVERSE
  9504.  
  9505.        JE              G2a,#40 [TRUE] L0001
  9506.        CALL_VN         R0075 (#20,G2a)
  9507.        RTRUE           
  9508. L0001: CALL_VS         R0322 (G2b,#18) -> -(SP)
  9509.        JZ              (SP)+ [FALSE] L0002
  9510.        PRINT_RET       "There is no blurb on that!"
  9511. L0002: CALL_VN         R0075 (#59,G2b)
  9512.        RTRUE           
  9513.  
  9514. Routine R0309, 0 locals
  9515.     Action routine for:
  9516.         "play"
  9517.         "play noun"
  9518.  
  9519.        PRINT_RET       "Unfortunately, this interpreter does not allow you to
  9520. play another game within this one. To play the game, exit and run the one you
  9521. want to play. For more information about how this works, read the blurb on the
  9522. game you wish to play, or simply 'READ <game>'"
  9523.  
  9524. Routine R0310, 2 locals
  9525.     Action routine for:
  9526.         "score noun"
  9527.         "score noun number"
  9528.         "feed number to noun" REVERSE
  9529.         "feed number noun" REVERSE
  9530.         "rate noun"
  9531.         "rate noun number"
  9532.  
  9533.        CALL_VS         R0322 (G2a,#18) -> -(SP)
  9534.        JZ              (SP)+ [FALSE] L0001
  9535.        PRINT_RET       "You can only rate the games!"
  9536. L0001: JIN             "rack on the wall","Competition Headquarters" [TRUE]
  9537. L0002
  9538.        PRINT_RET       "Please sort the games you can play before you try to
  9539. rate them. Simply put all games you can play in the 'playable' bin, the games
  9540. you can't into the 'unplayable', and pull the lever."
  9541. L0002: JIN             G2a,"rack on the wall" [TRUE] L0003
  9542.        PRINT_RET       "I thought you said you couldn't play that game! If you
  9543. can, you'll have to pull the lever again and re-sort the games."
  9544. L0003: GET_CHILD       "rack on the wall" -> L00 [FALSE] L0004
  9545. L0004: JZ              L00 [TRUE] L0007
  9546.        CALL_VS         R0317 (G2a,#4d) -> -(SP)
  9547.        CALL_VS         R0317 (L00,#4d) -> -(SP)
  9548.        JL              (SP)+,(SP)+ [FALSE] L0005
  9549.        CALL_VS         R0317 (L00,#4c) -> -(SP)
  9550.        JZ              (SP)+ [FALSE] L0005
  9551.        STORE           L01,#01
  9552. L0005: GET_SIBLING     L00 -> L00 [FALSE] L0006
  9553. L0006: JUMP            L0004
  9554. L0007: STORE           Gef,G2b
  9555.        JE              Gef,#00 [FALSE] L0008
  9556.        PRINT_RET       "To rate a game, try 'rate game #', where '#' is a
  9557. number from one to ten"
  9558. L0008: JL              Gef,#01 [TRUE] L0011
  9559.        JG              Gef,#0a [TRUE] L0011
  9560.        CALL_VN         R0316 (G2a,#4c,G2b)
  9561.        JE              L01,#01 [FALSE] L0009
  9562.        PRINT           "Rating the games out of order, huh? I'll let you get
  9563. away with it, but you better have a good reason,...
  9564. Anyway, ""
  9565.        JUMP            L0010
  9566. L0009: PRINT           "Okay, ""
  9567. L0010: CALL_VS         R0317 (G2a,#5b) -> -(SP)
  9568.        PRINT_PADDR     (SP)+
  9569.        PRINT           "" now has a rating of "
  9570.        CALL_VS         R0317 (G2a,#4c) -> -(SP)
  9571.        CALL_2N         R0105 ((SP)+)
  9572.        PRINT_RET       "."
  9573. L0011: PRINT_RET       "You can only give a rating between one and ten."
  9574.  
  9575. orphan code fragment:
  9576.  
  9577.        RTRUE           
  9578.  
  9579. Routine R0311, 1 local
  9580.     Action routine for:
  9581.         "rate number number"
  9582.  
  9583.        JIN             "rack on the wall","Competition Headquarters" [TRUE]
  9584. L0001
  9585.        PRINT_RET       "Please sort the games you can play before you try to
  9586. rate them. Simply put all games you can play in the 'playable' bin, the games
  9587. you can't into the 'unplayable', and pull the lever."
  9588. L0001: JZ              G2a [FALSE] L0002
  9589.        PRINT_RET       "The list of games starts with '1'"
  9590. L0002: STORE           L00,#01
  9591. L0003: CALL_VS         R0322 (L00,#18) -> -(SP)
  9592.        JZ              (SP)+ [TRUE] L0004
  9593.        CALL_VS         R0317 (L00,#4d) -> -(SP)
  9594.        JE              (SP)+,G2a [FALSE] L0004
  9595.        STORE           G2a,L00
  9596.        CALL_VN         R0075 (#66,G2a,G2b)
  9597.        RTRUE           
  9598. L0004: INC             L00
  9599.        JG              L00,#0062 [TRUE] L0005
  9600.        JUMP            L0003
  9601. L0005: PRINT_RET       "There is no game with that ranking right now."
  9602.  
  9603. Routine R0312, 3 locals
  9604.     Action routine for:
  9605.         "score"
  9606.  
  9607.        PRINT           "Isn't it fun to rate the games instead of having them
  9608. rate you? Anyway, you "
  9609.        JIN             "rack on the wall",G00 [TRUE] L0001
  9610.        PRINT_RET       "don't have any games available to rate yet."
  9611. L0001: GET_CHILD       "rack on the wall" -> -(SP) [FALSE] L0002
  9612. L0002: PULL            L00
  9613.        JZ              L00 [TRUE] L0005
  9614. L0003: INC             L02
  9615.        CALL_VS         R0317 (L00,#4c) -> -(SP)
  9616.        JZ              (SP)+ [TRUE] L0004
  9617.        INC             L01
  9618. L0004: GET_SIBLING     L00 -> L00 [TRUE] L0003
  9619. L0005: PRINT           "have rated "
  9620.        CALL_2N         R0105 (L01)
  9621.        PRINT           " out of a total of "
  9622.        CALL_2N         R0105 (L02)
  9623.        PRINT_RET       " games available to you."
  9624.  
  9625. Routine R0313, 0 locals
  9626.     Action routine for:
  9627.         "aargh"
  9628.  
  9629.        CALL_VN         R0318 (#48,#67)
  9630.        RTRUE           
  9631.  
  9632. Routine R0314, 1 local
  9633.     Action routine for:
  9634.         "carry all"
  9635.         "carry all games"
  9636.         "carry all games from everywher"
  9637.         "get all"
  9638.         "get all games"
  9639.         "get all games from everywher"
  9640.         "pick up all"
  9641.         "pick up all games"
  9642.         "pick up all games from everywher"
  9643.  
  9644.        STORE           L00,#01
  9645. L0001: CALL_VS         R0322 (L00,#18) -> -(SP)
  9646.        JZ              (SP)+ [TRUE] L0002
  9647.        CALL_2N         R0102 (L00)
  9648.        PRINT           ": "
  9649.        CALL_VN         R0075 (#0f,L00)
  9650. L0002: INC             L00
  9651.        JG              L00,#0062 [TRUE] L0003
  9652.        JUMP            L0001
  9653. L0003: RTRUE           
  9654.  
  9655. Routine R0315, 5 locals
  9656.  
  9657.        AND             L00,#c000 -> -(SP)
  9658.        JZ              (SP)+ [TRUE] L0004
  9659.        AND             L00,#ff -> -(SP)
  9660.        LOADW           #1633,(SP)+ -> L03
  9661.        CALL_2N         R0104 (L03)
  9662.        PRINT           "::"
  9663.        AND             L00,#8000 -> -(SP)
  9664.        JZ              (SP)+ [FALSE] L0001
  9665.        AND             L00,#3f00 -> -(SP)
  9666.        DIV             (SP)+,#0100 -> L00
  9667.        JUMP            L0004
  9668. L0001: AND             L00,#7f00 -> -(SP)
  9669.        DIV             (SP)+,#0100 -> L00
  9670.        GET_PROP        L03,#03 -> L04
  9671. L0002: LOADW           L04,#00 -> -(SP)
  9672.        JZ              (SP)+ [TRUE] L0003
  9673.        JG              L00,#00 [FALSE] L0003
  9674.        LOADB           L04,#02 -> -(SP)
  9675.        ADD             L04,(SP)+ -> -(SP)
  9676.        ADD             (SP)+,#03 -> L04
  9677.        DEC             L00
  9678.        JUMP            L0002
  9679. L0003: LOADW           L04,#00 -> -(SP)
  9680.        AND             (SP)+,#7fff -> L00
  9681. L0004: STORE           L01,#1651
  9682.        LOADW           L01,#00 -> L02
  9683.        JG              L00,#00 [FALSE] L0005
  9684.        JL              L00,L02 [FALSE] L0005
  9685.        LOADW           L01,L00 -> -(SP)
  9686.        JZ              (SP)+ [FALSE] L0006
  9687. L0005: PRINT           "<number "
  9688.        PRINT_NUM       L00
  9689.        PRINT           ">"
  9690.        JUMP            L0007
  9691. L0006: LOADW           L01,L00 -> -(SP)
  9692.        PRINT_PADDR     (SP)+
  9693. L0007: RTRUE           
  9694.  
  9695. Routine R0316, 4 locals
  9696.  
  9697.        CALL_VS         R0319 (L00,L01) -> L03
  9698.        JZ              L03 [FALSE] L0001
  9699.        CALL_VN         R0324 (S241,L00,L01)
  9700.        RTRUE           
  9701. L0001: STOREW          L03,#00,L02
  9702.        RTRUE           
  9703.  
  9704. Routine R0317, 3 locals
  9705.  
  9706.        CALL_VS         R0319 (L00,L01) -> L02
  9707.        JZ              L02 [FALSE] L0002
  9708.        JL              L01,#01 [TRUE] L0001
  9709.        JL              L01,#40 [FALSE] L0001
  9710.        GET_PROP        L00,L01 -> -(SP)
  9711.        RET_POPPED      
  9712. L0001: CALL_VN         R0324 (S242,L00,L01)
  9713.        RTRUE           
  9714. L0002: LOADW           L02,#00 -> -(SP)
  9715.        RET_POPPED      
  9716.  
  9717. Routine R0318, 15 locals
  9718.  
  9719.        JL              L00,#01 [TRUE] L0001
  9720.        SUB             #0161,#ff -> -(SP)
  9721.        JG              L00,(SP)+ [FALSE] L0007
  9722. L0001: CALL_2S         R0325 (L00) -> -(SP)
  9723.        PULL            Gef
  9724.        JE              Gef,#02 [FALSE] L0003
  9725.        JE              L01,#45 [FALSE] L0002
  9726.        STORE           L0b,Gea
  9727.        STORE           Gea,Geb
  9728.        STORE           Geb,L00
  9729.        STORE           Ge9,G27
  9730.        CALL_VS2        L00 (L02,L03,L04,L05,L06,L07) -> L08
  9731.        STORE           Geb,Gea
  9732.        STORE           Gea,L0b
  9733.        RET             L08
  9734. L0002: JUMP            L0014
  9735. L0003: JE              Gef,#03 [FALSE] L0006
  9736.        JE              L01,#46 [FALSE] L0004
  9737.        PRINT_PADDR     L00
  9738.        RTRUE           
  9739. L0004: JE              L01,#47 [FALSE] L0005
  9740.        OUTPUT_STREAM   REDIRECT_ENABLE,L02
  9741.        PRINT_PADDR     L00
  9742.        OUTPUT_STREAM   #fffd
  9743.        LOADW           L02,#00 -> -(SP)
  9744.        RET_POPPED      
  9745. L0005: JUMP            L0014
  9746. L0006: JUMP            L0014
  9747. L0007: CHECK_ARG_COUNT #03 [FALSE] L0008
  9748.        INC             L09
  9749.        CHECK_ARG_COUNT #04 [FALSE] L0008
  9750.        INC             L09
  9751.        CHECK_ARG_COUNT #05 [FALSE] L0008
  9752.        INC             L09
  9753.        CHECK_ARG_COUNT #06 [FALSE] L0008
  9754.        INC             L09
  9755.        CHECK_ARG_COUNT #07 [FALSE] L0008
  9756.        INC             L09
  9757.        CHECK_ARG_COUNT #08 [FALSE] L0008
  9758.        INC             L09
  9759. L0008: JL              L01,#00 [TRUE] L0012
  9760.        JL              L01,#40 [FALSE] L0012
  9761.        GET_PROP_ADDR   L00,L01 -> L08
  9762.        JZ              L08 [FALSE] L0009
  9763.        STORE           L0d,#02
  9764.        JUMP            L0011
  9765. L0009: GET_PROP_ADDR   L00,L01 -> Gef
  9766.        JZ              Gef [TRUE] L0010
  9767.        GET_PROP_LEN    Gef -> Gef
  9768. L0010: STORE           L0d,Gef
  9769. L0011: JUMP            L0016
  9770. L0012: JL              L01,#40 [TRUE] L0013
  9771.        JL              L01,#45 [FALSE] L0013
  9772.        JIN             L00,"Class" [FALSE] L0013
  9773.        CALL_VS2        R0329 (L00,L01,L02,L03) -> -(SP)
  9774.        RET_POPPED      
  9775. L0013: CALL_VS         R0319 (L00,L01) -> L08
  9776.        JZ              L08 [FALSE] L0015
  9777. L0014: CALL_VN         R0324 (S243,L00,L01)
  9778.        RTRUE           
  9779. L0015: SUB             L08,#01 -> -(SP)
  9780.        LOADB           #00,(SP)+ -> L0d
  9781. L0016: MUL             #02,L0e -> -(SP)
  9782.        JL              (SP)+,L0d [FALSE] L0030
  9783.        LOADW           L08,L0e -> -(SP)
  9784.        JE              (SP)+,#ffff [TRUE] RFALSE
  9785.        LOADW           L08,L0e -> -(SP)
  9786.        CALL_2S         R0325 ((SP)+) -> -(SP)
  9787.        PULL            Gef
  9788.        JE              Gef,#02 [FALSE] L0027
  9789.        STORE           L0b,Gea
  9790.        STORE           Gea,Geb
  9791.        STORE           Geb,L00
  9792.        STORE           L0c,Ge9
  9793.        JE              L01,#06 [FALSE] L0017
  9794.        STORE           Ge9,G2d
  9795.        JUMP            L0018
  9796. L0017: STORE           Ge9,G27
  9797. L0018: STORE           Gef,L09
  9798.        JE              Gef,#00 [FALSE] L0019
  9799.        LOADW           L08,L0e -> -(SP)
  9800.        CALL_1S         (SP)+ -> L0a
  9801.        JUMP            L0025
  9802. L0019: JE              Gef,#01 [FALSE] L0020
  9803.        LOADW           L08,L0e -> -(SP)
  9804.        CALL_2S         (SP)+ (L02) -> L0a
  9805.        JUMP            L0025
  9806. L0020: JE              Gef,#02 [FALSE] L0021
  9807.        LOADW           L08,L0e -> -(SP)
  9808.        CALL_VS         (SP)+ (L02,L03) -> L0a
  9809.        JUMP            L0025
  9810. L0021: JE              Gef,#03 [FALSE] L0022
  9811.        LOADW           L08,L0e -> -(SP)
  9812.        CALL_VS         (SP)+ (L02,L03,L04) -> L0a
  9813.        JUMP            L0025
  9814. L0022: JE              Gef,#04 [FALSE] L0023
  9815.        LOADW           L08,L0e -> -(SP)
  9816.        CALL_VS2        (SP)+ (L02,L03,L04,L05) -> L0a
  9817.        JUMP            L0025
  9818. L0023: JE              Gef,#05 [FALSE] L0024
  9819.        LOADW           L08,L0e -> -(SP)
  9820.        CALL_VS2        (SP)+ (L02,L03,L04,L05,L06) -> L0a
  9821.        JUMP            L0025
  9822. L0024: JE              Gef,#06 [FALSE] L0025
  9823.        LOADW           L08,L0e -> -(SP)
  9824.        CALL_VS2        (SP)+ (L02,L03,L04,L05,L06,L07) -> L0a
  9825. L0025: STORE           Geb,Gea
  9826.        STORE           Gea,L0b
  9827.        STORE           Ge9,L0c
  9828.        JZ              L0a [TRUE] L0026
  9829.        RET             L0a
  9830. L0026: JUMP            L0029
  9831. L0027: JE              Gef,#03 [FALSE] L0028
  9832.        LOADW           L08,L0e -> -(SP)
  9833.        PRINT_PADDR     (SP)+
  9834.        NEW_LINE        
  9835.        RTRUE           
  9836. L0028: LOADW           L08,L0e -> -(SP)
  9837.        RET_POPPED      
  9838. L0029: INC             L0e
  9839.        JUMP            L0016
  9840. L0030: RFALSE          
  9841.  
  9842. Routine R0319, 5 locals
  9843.  
  9844.        JL              L01,#40 [FALSE] L0001
  9845.        JG              L01,#00 [FALSE] L0001
  9846.        GET_PROP_ADDR   L00,L01 -> -(SP)
  9847.        RET_POPPED      
  9848. L0001: AND             L01,#8000 -> -(SP)
  9849.        JZ              (SP)+ [TRUE] L0004
  9850.        AND             L01,#ff -> -(SP)
  9851.        LOADW           #1633,(SP)+ -> L04
  9852.        GET_PROP_ADDR   L04,#03 -> -(SP)
  9853.        JZ              (SP)+ [TRUE] RFALSE
  9854.        CALL_VS         R0322 (L00,L04) -> -(SP)
  9855.        JZ              (SP)+ [TRUE] RFALSE
  9856.        AND             L01,#7f00 -> -(SP)
  9857.        DIV             (SP)+,#0100 -> L01
  9858.        GET_PROP        L04,#03 -> L02
  9859. L0002: JG              L01,#00 [FALSE] L0003
  9860.        DEC             L01
  9861.        LOADB           L02,#02 -> -(SP)
  9862.        ADD             L02,(SP)+ -> -(SP)
  9863.        ADD             (SP)+,#03 -> L02
  9864.        JUMP            L0002
  9865. L0003: ADD             L02,#03 -> -(SP)
  9866.        RET_POPPED      
  9867. L0004: AND             L01,#4000 -> -(SP)
  9868.        JZ              (SP)+ [TRUE] L0006
  9869.        AND             L01,#ff -> -(SP)
  9870.        LOADW           #1633,(SP)+ -> L04
  9871.        AND             L01,#3f00 -> -(SP)
  9872.        DIV             (SP)+,#0100 -> L01
  9873.        CALL_VS         R0322 (L00,L04) -> -(SP)
  9874.        JZ              (SP)+ [TRUE] RFALSE
  9875.        LOADW           #00,#05 -> L02
  9876.        JE              L04,#02 [FALSE] L0005
  9877.        MUL             #02,L01 -> -(SP)
  9878.        ADD             L02,(SP)+ -> -(SP)
  9879.        SUB             (SP)+,#02 -> -(SP)
  9880.        RET_POPPED      
  9881. L0005: MUL             L04,#0e -> -(SP)
  9882.        ADD             L02,#7c -> -(SP)
  9883.        ADD             (SP)+,(SP)+ -> -(SP)
  9884.        DIV             (SP)+,#02 -> -(SP)
  9885.        LOADW           #00,(SP)+ -> L02
  9886.        LOADB           #00,L02 -> -(SP)
  9887.        MUL             #02,(SP)+ -> -(SP)
  9888.        ADD             L02,(SP)+ -> -(SP)
  9889.        ADD             (SP)+,#01 -> -(SP)
  9890.        CALL_VS         R0328 ((SP)+,#ffff) -> -(SP)
  9891.        ADD             (SP)+,#06 -> L02
  9892.        CALL_VS         R0328 (L02,L01) -> -(SP)
  9893.        RET_POPPED      
  9894. L0006: GET_PROP_ADDR   L00,#03 -> -(SP)
  9895.        JZ              (SP)+ [TRUE] RFALSE
  9896.        JIN             L00,"Class" [FALSE] L0007
  9897.        JL              L01,#40 [TRUE] RFALSE
  9898.        JL              L01,#48 [FALSE] RFALSE
  9899. L0007: JE              Geb,L00 [FALSE] L0008
  9900.        OR              L01,#8000 -> L03
  9901. L0008: GET_PROP        L00,#03 -> L02
  9902. L0009: LOADW           L02,#00 -> -(SP)
  9903.        JZ              (SP)+ [TRUE] L0011
  9904.        LOADW           L02,#00 -> -(SP)
  9905.        JE              (SP)+,L01,L03 [FALSE] L0010
  9906.        ADD             L02,#03 -> -(SP)
  9907.        RET_POPPED      
  9908. L0010: LOADB           L02,#02 -> -(SP)
  9909.        ADD             L02,(SP)+ -> -(SP)
  9910.        ADD             (SP)+,#03 -> L02
  9911.        JUMP            L0009
  9912. L0011: RFALSE          
  9913.  
  9914. Routine R0320, 3 locals
  9915.  
  9916.        JL              L01,#40 [FALSE] L0002
  9917.        JG              L01,#00 [FALSE] L0002
  9918.        GET_PROP_ADDR   L00,L01 -> Gef
  9919.        JZ              Gef [TRUE] L0001
  9920.        GET_PROP_LEN    Gef -> Gef
  9921. L0001: PUSH            Gef
  9922.        RET_POPPED      
  9923. L0002: CALL_VS         R0319 (L00,L01) -> L02
  9924.        JZ              L02 [TRUE] RFALSE
  9925.        SUB             L02,#01 -> -(SP)
  9926.        LOADB           (SP)+,#00 -> -(SP)
  9927.        RET_POPPED      
  9928.  
  9929. Routine R0321, 2 locals
  9930.  
  9931.        JL              L00,#01 [TRUE] L0001
  9932.        SUB             #0161,#ff -> -(SP)
  9933.        JG              L00,(SP)+ [FALSE] L0004
  9934. L0001: JE              L01,#46,#47,#45 [FALSE] RFALSE
  9935.        CALL_2S         R0325 (L00) -> -(SP)
  9936.        PULL            Gef
  9937.        JE              Gef,#02 [FALSE] L0002
  9938.        JE              L01,#45 [TRUE] RTRUE
  9939.        JUMP            L0003
  9940. L0002: JE              Gef,#03 [FALSE] L0003
  9941.        JE              L01,#46,#47 [TRUE] RTRUE
  9942. L0003: RFALSE          
  9943. L0004: JL              L01,#40 [FALSE] L0005
  9944.        GET_PROP_ADDR   L00,L01 -> -(SP)
  9945.        JZ              (SP)+ [FALSE] RTRUE
  9946.        RFALSE          
  9947. L0005: CALL_VS         R0319 (L00,L01) -> -(SP)
  9948.        JZ              (SP)+ [FALSE] RTRUE
  9949.        JL              L01,#48 [FALSE] L0006
  9950.        JIN             L00,"Class" [TRUE] RTRUE
  9951. L0006: RFALSE          
  9952.  
  9953. Routine R0322, 5 locals
  9954.  
  9955.        JL              L00,#01 [TRUE] L0001
  9956.        SUB             #0161,#ff -> -(SP)
  9957.        JG              L00,(SP)+ [FALSE] L0002
  9958. L0001: JE              L01,#03,#04 [FALSE] RFALSE
  9959.        SUB             L01,#01 -> -(SP)
  9960.        CALL_2S         R0325 (L00) -> -(SP)
  9961.        JE              (SP)+,(SP)+ [TRUE] RTRUE
  9962.        RFALSE          
  9963. L0002: STORE           Gef,L01
  9964.        JE              Gef,#01 [FALSE] L0003
  9965.        JG              L00,#04 [FALSE] RTRUE
  9966.        JIN             L00,"Class" [TRUE] RTRUE
  9967.        RFALSE          
  9968. L0003: JE              Gef,#02 [FALSE] L0004
  9969.        JG              L00,#04 [FALSE] RFALSE
  9970.        JIN             L00,"Class" [TRUE] RFALSE
  9971.        RTRUE           
  9972. L0004: JE              Gef,#03,#04 [FALSE] L0005
  9973.        RFALSE          
  9974. L0005: JIN             L01,"Class" [TRUE] L0006
  9975.        CALL_VN         R0324 (S244,L01,#ffff)
  9976.        RFALSE          
  9977. L0006: GET_PROP_ADDR   L00,#02 -> L03
  9978.        JZ              L03 [TRUE] RFALSE
  9979.        GET_PROP_ADDR   L00,#02 -> Gef
  9980.        JZ              Gef [TRUE] L0007
  9981.        GET_PROP_LEN    Gef -> Gef
  9982. L0007: STORE           L04,Gef
  9983.        STORE           L02,#00
  9984. L0008: DIV             L04,#02 -> -(SP)
  9985.        JL              L02,(SP)+ [FALSE] L0009
  9986.        LOADW           L03,L02 -> -(SP)
  9987.        JE              (SP)+,L01 [TRUE] RTRUE
  9988.        INC             L02
  9989.        JUMP            L0008
  9990. L0009: RFALSE          
  9991.  
  9992. Routine R0323, 9 locals
  9993.  
  9994.        STORE           L04,#00
  9995. L0001: JL              L04,#30 [FALSE] L0004
  9996.        TEST_ATTR       L01,L04 [FALSE] L0002
  9997.        SET_ATTR        L00,L04
  9998.        JUMP            L0003
  9999. L0002: CLEAR_ATTR      L00,L04
  10000. L0003: INC             L04
  10001.        JUMP            L0001
  10002. L0004: STORE           L04,#01
  10003. L0005: JL              L04,#40 [FALSE] L0010
  10004.        GET_PROP_ADDR   L00,L04 -> L02
  10005.        GET_PROP_ADDR   L01,L04 -> L03
  10006.        GET_PROP_ADDR   L00,L04 -> Gef
  10007.        JZ              Gef [TRUE] L0006
  10008.        GET_PROP_LEN    Gef -> Gef
  10009. L0006: STORE           L07,Gef
  10010.        JZ              L02 [TRUE] L0009
  10011.        JZ              L03 [TRUE] L0009
  10012.        GET_PROP_ADDR   L01,L04 -> Gef
  10013.        JZ              Gef [TRUE] L0007
  10014.        GET_PROP_LEN    Gef -> Gef
  10015. L0007: PUSH            Gef
  10016.        JE              L07,(SP)+ [FALSE] L0009
  10017.        STORE           L05,#00
  10018. L0008: JL              L05,L07 [FALSE] L0009
  10019.        LOADB           L03,L05 -> -(SP)
  10020.        STOREB          L02,L05,(SP)+
  10021.        INC             L05
  10022.        JUMP            L0008
  10023. L0009: INC             L04
  10024.        JUMP            L0005
  10025. L0010: GET_PROP_ADDR   L00,#03 -> -(SP)
  10026.        JZ              (SP)+ [TRUE] L0011
  10027.        GET_PROP_ADDR   L01,#03 -> -(SP)
  10028.        JZ              (SP)+ [FALSE] L0012
  10029. L0011: RTRUE           
  10030. L0012: GET_PROP        L01,#03 -> L04
  10031.        JUMP            L0014
  10032. L0013: ADD             L04,L07 -> -(SP)
  10033.        ADD             (SP)+,#03 -> L04
  10034. L0014: LOADW           L04,#00 -> -(SP)
  10035.        JZ              (SP)+ [TRUE] L0020
  10036.        LOADW           L04,#00 -> L08
  10037.        LOADB           L04,#02 -> L07
  10038.        GET_PROP        L00,#03 -> L05
  10039.        JUMP            L0016
  10040. L0015: LOADB           L05,#02 -> -(SP)
  10041.        ADD             L05,(SP)+ -> -(SP)
  10042.        ADD             (SP)+,#03 -> L05
  10043. L0016: LOADW           L05,#00 -> -(SP)
  10044.        JZ              (SP)+ [TRUE] L0019
  10045.        LOADW           L05,#00 -> -(SP)
  10046.        AND             (SP)+,#7fff -> -(SP)
  10047.        AND             L08,#7fff -> -(SP)
  10048.        JE              (SP)+,(SP)+ [FALSE] L0018
  10049.        LOADB           L05,#02 -> -(SP)
  10050.        JE              L07,(SP)+ [FALSE] L0018
  10051.        STORE           L06,#03
  10052. L0017: ADD             L07,#03 -> -(SP)
  10053.        JL              L06,(SP)+ [FALSE] L0018
  10054.        LOADB           L04,L06 -> -(SP)
  10055.        STOREB          L05,L06,(SP)+
  10056.        INC             L06
  10057.        JUMP            L0017
  10058. L0018: JUMP            L0015
  10059. L0019: JUMP            L0013
  10060. L0020: RTRUE           
  10061.  
  10062. Routine R0324, 5 locals
  10063.  
  10064.        PRINT           "
  10065. ** Run-time error: "
  10066.        JIN             L01,"Class" [FALSE] L0001
  10067.        PRINT           "Class "
  10068. L0001: PRINT_OBJ       L01
  10069.        PRINT           " (object number "
  10070.        PRINT_NUM       L01
  10071.        PRINT           ") "
  10072.        JL              L02,#00 [FALSE] L0002
  10073.        PRINT           "is not of class "
  10074.        SUB             #00,L02 -> -(SP)
  10075.        CALL_2N         R0104 ((SP)+)
  10076.        JUMP            L0004
  10077. L0002: PRINT           " has no property "
  10078.        CALL_2N         R0315 (L02)
  10079.        STORE           L04,#1651
  10080.        LOADW           L04,#00 -> L03
  10081.        JL              L02,#00 [TRUE] L0003
  10082.        JL              L02,L03 [TRUE] L0004
  10083. L0003: PRINT           " (and nor has any other object)"
  10084. L0004: PRINT           " to "
  10085.        PRINT_PADDR     L00
  10086.        PRINT           " **
  10087. "
  10088.        RTRUE           
  10089.  
  10090. Routine R0325, 1 local
  10091.  
  10092.        JZ              L00 [TRUE] RFALSE
  10093.        JL              L00,#01 [TRUE] L0001
  10094.        SUB             #0161,#ff -> -(SP)
  10095.        JG              L00,(SP)+ [FALSE] RTRUE
  10096. L0001: CALL_VS         R0326 (L00,S001) -> -(SP)
  10097.        JL              (SP)+,#00 [TRUE] L0002
  10098.        RET             #03
  10099. L0002: CALL_VS         R0326 (L00,#129a) -> -(SP)
  10100.        JL              (SP)+,#00 [TRUE] L0003
  10101.        RET             #02
  10102. L0003: RFALSE          
  10103.  
  10104. Routine R0326, 4 locals
  10105.  
  10106.        JE              L00,L01 [FALSE] L0001
  10107.        RFALSE          
  10108. L0001: JL              L00,#00 [FALSE] L0002
  10109.        JL              L01,#00 [TRUE] L0002
  10110.        RTRUE           
  10111. L0002: JL              L00,#00 [TRUE] L0003
  10112.        JL              L01,#00 [FALSE] L0003
  10113.        RET             #ffff
  10114. L0003: AND             L00,#7fff -> L02
  10115.        AND             L01,#7fff -> L03
  10116.        JG              L02,L03 [FALSE] L0004
  10117.        RTRUE           
  10118. L0004: RET             #ffff
  10119.  
  10120. Routine R0327, 1 local
  10121.  
  10122.        CALL_2S         R0325 (L00) -> -(SP)
  10123.        PULL            Gef
  10124.        JE              Gef,#02 [FALSE] L0001
  10125.        RET             #03
  10126. L0001: JE              Gef,#03 [FALSE] L0002
  10127.        RET             #04
  10128. L0002: JE              Gef,#01 [FALSE] L0005
  10129.        JIN             L00,"Class" [TRUE] L0003
  10130.        JG              L00,#04 [TRUE] L0004
  10131. L0003: RTRUE           
  10132. L0004: RET             #02
  10133. L0005: RFALSE          
  10134.  
  10135. Routine R0328, 4 locals
  10136.  
  10137. L0001: LOADB           #00,L00 -> L02
  10138.        JZ              L02 [TRUE] L0006
  10139.        AND             L02,#80 -> -(SP)
  10140.        JZ              (SP)+ [TRUE] L0002
  10141.        INC             L00
  10142.        LOADB           #00,L00 -> -(SP)
  10143.        AND             (SP)+,#3f -> L03
  10144.        JUMP            L0004
  10145. L0002: AND             L02,#40 -> -(SP)
  10146.        JZ              (SP)+ [TRUE] L0003
  10147.        STORE           L03,#02
  10148.        JUMP            L0004
  10149. L0003: STORE           L03,#01
  10150. L0004: INC             L00
  10151.        AND             L02,#3f -> -(SP)
  10152.        JE              (SP)+,L01 [FALSE] L0005
  10153.        RET             L00
  10154. L0005: ADD             L00,L03 -> L00
  10155.        JUMP            L0001
  10156. L0006: JL              L01,#00 [FALSE] L0007
  10157.        ADD             L00,#01 -> -(SP)
  10158.        RET_POPPED      
  10159. L0007: RFALSE          
  10160.  
  10161. Routine R0329, 5 locals
  10162.  
  10163.        STORE           Gef,L01
  10164.        JE              Gef,#40 [FALSE] L0005
  10165.        STORE           Gef,#00
  10166.        GET_CHILD       L00 -> -(SP) [FALSE] L0002
  10167. L0001: INC             Gef
  10168.        GET_SIBLING     (SP)+ -> -(SP) [TRUE] L0001
  10169. L0002: PULL            Gee
  10170.        PUSH            Gef
  10171.        JG              (SP)+,#01 [FALSE] RFALSE
  10172.        GET_CHILD       L00 -> L04 [FALSE] L0003
  10173. L0003: REMOVE_OBJ      L04
  10174.        CALL_VS         R0321 (L04,#40) -> -(SP)
  10175.        JZ              (SP)+ [TRUE] L0004
  10176.        CALL_VN         R0318 (L04,#40)
  10177. L0004: RET             L04
  10178. L0005: JE              Gef,#41 [FALSE] L0009
  10179.        CALL_VS         R0322 (L02,L00) -> -(SP)
  10180.        JZ              (SP)+ [FALSE] L0006
  10181.        SUB             #00,L00 -> -(SP)
  10182.        CALL_VN         R0324 (S245,L02,(SP)+)
  10183.        RFALSE          
  10184. L0006: GET_CHILD       L00 -> -(SP) [FALSE] L0007
  10185. L0007: CALL_VN         R0323 (L02,(SP)+)
  10186.        CALL_VS         R0321 (L02,#40) -> -(SP)
  10187.        JZ              (SP)+ [TRUE] L0008
  10188.        CALL_VN         R0318 (L02,#40)
  10189. L0008: RFALSE          
  10190. L0009: JE              Gef,#42 [FALSE] L0013
  10191.        CALL_VS         R0322 (L02,L00) -> -(SP)
  10192.        JZ              (SP)+ [FALSE] L0010
  10193.        SUB             #00,L00 -> -(SP)
  10194.        CALL_VN         R0324 (S246,L02,(SP)+)
  10195.        RFALSE          
  10196. L0010: CALL_VS         R0321 (L02,#42) -> -(SP)
  10197.        JZ              (SP)+ [TRUE] L0011
  10198.        CALL_VN         R0318 (L02,#42)
  10199. L0011: GET_CHILD       L00 -> -(SP) [FALSE] L0012
  10200. L0012: CALL_VN         R0323 (L02,(SP)+)
  10201.        INSERT_OBJ      L02,L00
  10202.        RFALSE          
  10203. L0013: JE              Gef,#43 [FALSE] L0016
  10204.        STORE           Gef,#00
  10205.        GET_CHILD       L00 -> -(SP) [FALSE] L0015
  10206. L0014: INC             Gef
  10207.        GET_SIBLING     (SP)+ -> -(SP) [TRUE] L0014
  10208. L0015: PULL            Gee
  10209.        PUSH            Gef
  10210.        SUB             (SP)+,#01 -> -(SP)
  10211.        RET_POPPED      
  10212. L0016: JE              Gef,#44 [FALSE] L0019
  10213.        CALL_VS         R0322 (L02,L00) -> -(SP)
  10214.        JZ              (SP)+ [FALSE] L0017
  10215.        SUB             #00,L00 -> -(SP)
  10216.        CALL_VN         R0324 (S247,L02,(SP)+)
  10217.        RFALSE          
  10218. L0017: CALL_VS         R0322 (L03,L00) -> -(SP)
  10219.        JZ              (SP)+ [FALSE] L0018
  10220.        SUB             #00,L00 -> -(SP)
  10221.        CALL_VN         R0324 (S248,L03,(SP)+)
  10222.        RFALSE          
  10223. L0018: CALL_VN         R0323 (L02,L03)
  10224.        RFALSE          
  10225. L0019: RTRUE           
  10226.  
  10227. [End of code]
  10228.  
  10229. [Start of text]
  10230.  
  10231. S001: "Competition '96"
  10232. S002: "
  10233. An Interactive Guide
  10234. Copyright (c) 1997 by Lucian Smith.
  10235. "
  10236. S003: "970405"
  10237. S004: "6/5"
  10238. S005: "a"
  10239. S006: "---"
  10240. S007: "the"
  10241. S008: "The "
  10242. S009: "the "
  10243. S010: "a "
  10244. S011: "The "
  10245. S012: "the "
  10246. S013: "an "
  10247. S014: "The "
  10248. S015: "the "
  10249. S016: "some "
  10250. S017: "The "
  10251. S018: "the "
  10252. S019: "some "
  10253. S020: "N = next subject"
  10254. S021: "P = previous"
  10255. S022: "  Q = resume game"
  10256. S023: "Q = previous menu"
  10257. S024: "RETURN = read subject"
  10258. S025: "Score: "
  10259. S026: "Moves: "
  10260. S027: "Time: "
  10261. S028: "You can't go that way."
  10262. S029: "your former self"
  10263. S030: "yourself"
  10264. S031: "Darkness"
  10265. S032: "those things"
  10266. S033: "that"
  10267. S034: " or "
  10268. S035: "nothing"
  10269. S036: " is"
  10270. S037: " are"
  10271. S038: "is "
  10272. S039: "are "
  10273. S040: " and "
  10274. S041: "whom "
  10275. S042: "which "
  10276. S043: "games of various types"
  10277. S044: "Inform"
  10278. S045: ".z5"
  10279. S046: "an"
  10280. S047: "Inform games"
  10281. S048: "ftp://ftp.gmd.de/if-archive/infocom/interpreters/frotz/
  10282. --and--
  10283. ftp://ftp.gmd.de/if-archive/infocom/interpreters/zip/
  10284. (as well as in other subdirectories under ../interpreters/)"
  10285. S049: "Frotz222Std02.zip or frotzpl3.zip (frotz), or jzpc201g.zip or zip200.zip
  10286. (zip)"
  10287. S050: "WinFrotzR4.zip (frotz), or winf_05.zip or wzip21.zip (zip)"
  10288. S051: "MaxZip-153.hqx, MultiAventures1.2.cpt, or ZIP_13_68k.cpt (zip)"
  10289. S052: "frotz201_std02_os2b7.zip (frotz), or zip8os2 or zip8warp (zip)"
  10290. S053: "ziplinux.patch (source code)"
  10291. S054: "frotz201a_unixsrc.tar.gz (frotz) or zip.sh.Z (zip source code),
  10292. zip-sgi.tar.gz (zip IRIX), or xzip161.tar.Z (X-Windows)"
  10293. S055: "Frotz222Std02Amiga8.lha (frotz) or AmigaZIP_V8.lha (zip)"
  10294. S056: "Acorn_Zip2000_Std0.2.spk (Acorn Archimedes), atarizip.zoo (Atari ST),
  10295. jzip.bebox.tar.gz (BeBox), jzipstb3.zip (Atari 16/32 bit), zipgs1.0a1.sea
  10296. (Apple IIGS)"
  10297. S057: ".gam"
  10298. S058: "TADS"
  10299. S059: "TADS games"
  10300. S060: "ftp://ftp.gmd.de/if-archive/programming/tads/executables/"
  10301. S061: "pc-go32.tads2exe.zip or tads2exe.zip"
  10302. S062: "MaxTADS-103.hqx or tads2exe.sit"
  10303. S063: "tads2os2.zip"
  10304. S064: "tads2exe-linuxelf.tar.gz"
  10305. S065: "???? (can't find it! I have it myself! aaargh!)???"
  10306. S066: "AmigaTADS2210.lha"
  10307. S067: "AcornTADSruntime.spk (Acorn), atari.tads2exe.arc (Atari ST/TT/Falcon)"
  10308. S068: ".bat"
  10309. S069: "AGT"
  10310. S070: "an"
  10311. S071: "AGT games"
  10312. S072: "ftp://ftp.gmd.de/if-archive/programming/agt/"
  10313. S073: "(provided)"
  10314. S074: "CompileAgt.cpt (compiles the source code), and MultiAventures1.2.cpt
  10315. (plays the game) (it helps if you know French)"
  10316. S075: "REXX Adventure"
  10317. S076: ".rad"
  10318. S077: "ftp://ftp.gmd.de/if-archive/programming/rexx-adventure/"
  10319. S078: "RADF100.ZIP"
  10320. S079: "In this tiny room, a carpet of debris is broken by stone-cut steps
  10321. leading back down into the darkness from which you came. Though you got here
  10322. late, it looks like those who came before had a great time.
  10323. "
  10324. S080: "You climb the walls for a bit, but it doesn't help."
  10325. S081: "There doesn't seem to be any way out other than the way you got here."
  10326. S082: "playable"
  10327. S083: "This is the bin in which to put games that are playable on your
  10328. computer. When you're finished, pull the lever to sort the games in here."
  10329. S084: "unplayable"
  10330. S085: "This is the bin in which to put games which are unplayable on your
  10331. computer."
  10332. S086: "unsorted"
  10333. S087: "This is the bin where the games start out. The games in the playable bin
  10334. can't be sorted (by pulling the lever) until this bin is empty, and no games
  10335. are left lying around or in your posession."
  10336. S088: "Aayela"
  10337. S089: "Magnus Olsson"
  10338. S090: "An Interactive Vision."
  10339. S091: "aayela"
  10340. S092: "readme and walkthrough.txt"
  10341. S093: "Alien Abduction?"
  10342. S094: "Charles Gerlach"
  10343. S095: "An Interactive Fiction Story."
  10344. S096: "abduct"
  10345. S097: "aaintro.txt, aaquanda.txt, and aawalkth.txt"
  10346. S098: "Wearing the Claw"
  10347. S099: "Paul O'Brian"
  10348. S100: "an Interactive Fantasy"
  10349. S101: "claw"
  10350. S102: "Don't Be Late!"
  10351. S103: "Grew Ewing"
  10352. S104: "An Interactive Snippet"
  10353. S105: "dbl"
  10354. S106: "ALAN"
  10355. S107: "an"
  10356. S108: "ftp://ftp.gmd.de/if-archive/programming/alan/"
  10357. S109: ".acd"
  10358. S110: "arun262pc.zip"
  10359. S111: "arun260amiga.lzh"
  10360. S112: "arun2_5_1_mac.sit.hqx"
  10361. S113: "arun261linux.tar.Z"
  10362. S114: "arun260sun4.tar.Z (SunOS), arun260hp.tar.Z (HP/UX), or arun2_5_1_vms.lzc
  10363. (VMS)"
  10364. S115: "arun260solaris2.tar.Z (Solaris)"
  10365. S116: "1req.txt, walkthru.txt, and dbl.dat"
  10366. S117: "Delusions"
  10367. S118: "(anonymous)"
  10368. S119: "an Interactive Self-Discovery"
  10369. S120: "delusns"
  10370. S121: "Fear"
  10371. S122: "(anonymous)"
  10372. S123: "an Interactive Nightmare"
  10373. S124: "fear"
  10374. S125: "My First Stupid Game"
  10375. S126: "Dan McPherson"
  10376. S127: "first"
  10377. S128: "first.*, first.sol, and source/* (for non-IBM users)"
  10378. S129: "Of Forms Unknown"
  10379. S130: "Chris Markwyn"
  10380. S131: "an Interactive Excursion"
  10381. S132: "forms"
  10382. S133: "In the End"
  10383. S134: "Joe Mason"
  10384. S135: "intheend"
  10385. S136: "The Curse of Eldor"
  10386. S137: "Stuart Allen"
  10387. S138: "an Adventure"
  10388. S139: "eldor"
  10389. S140: ".jac"
  10390. S141: "JACL"
  10391. S142: "ftp://ftp.gmd.de/if-archive/games/competition96/jacl/"
  10392. S143: "jacl.exe (provided)"
  10393. S144: "jacl.elf (provided; see 1req.txt)"
  10394. S145: "jacl.*, eldor.ps, 1req.txt, and walkthru"
  10395. S146: "Kissing the Buddha's Feet"
  10396. S147: "(anonymous)"
  10397. S148: "an Interactive Cramming"
  10398. S149: "kissing"
  10399. S150: "kissing.sol"
  10400. S151: "Punkirita Quest One: Liquid"
  10401. S152: "Rybread Celsius"
  10402. S153: "a Viking's Funeral"
  10403. S154: "liquid"
  10404. S155: "liquid.sol"
  10405. S156: "Lists and Lists"
  10406. S157: "Andrew Plotkin"
  10407. S158: "An Interactive Tutorial"
  10408. S159: "lists"
  10409. S160: "erykath@wherever"
  10410. S161: "Maiden of the Moonlight"
  10411. S162: "Brian P. Dean"
  10412. S163: "maiden"
  10413. S164: "readme.txt, maiden.ico, maiden.txt, and maiden.wlk"
  10414. S165: "Phlegm"
  10415. S166: "Adjacent Drooler"
  10416. S167: "an Interactive Interactive"
  10417. S168: "phlegm"
  10418. S169: "The Land beyond the Picket Fence"
  10419. S170: "standalone DOS"
  10420. S171: "Martin Oehm"
  10421. S172: "picket"
  10422. S173: ".exe"
  10423. S174: "picket.dat, picket.sol, handbook.doc, and 1req.txt"
  10424. S175: "Piece of Mind"
  10425. S176: "Giles Boutel"
  10426. S177: "an Interactive Short Story"
  10427. S178: "piece"
  10428. S179: "Promoted!"
  10429. S180: "Mike DeSanto"
  10430. S181: "promoted"
  10431. S182: "1req.txt"
  10432. S183: "Ralph"
  10433. S184: "Miron Schmidt"
  10434. S185: "an Interactive Sniffing"
  10435. S186: "ralph"
  10436. S187: "Reverberations"
  10437. S188: "Russell Wain Glasser"
  10438. S189: "a Hectic Voltarian Adventure"
  10439. S190: "reverb"
  10440. S191: "Rippled Flesh"
  10441. S192: "Rybread Celsius"
  10442. S193: "an Interactive Goosing"
  10443. S194: "ripflesh"
  10444. S195: "ripflesh.sol"
  10445. S196: "The Meteor, the Stone and a Long Glass of Sherbet"
  10446. S197: "Angela M. Horns"
  10447. S198: "The Interactive Memoirs of a Diplomat"
  10448. S199: "sherbet"
  10449. S200: "Small World"
  10450. S201: "Andrew D. Pontious"
  10451. S202: "Interactive Fiction"
  10452. S203: "smallwld"
  10453. S204: "BugHints.txt"
  10454. S205: "The House of the Stalker"
  10455. S206: "Jason Clayton White"
  10456. S207: "stalker"
  10457. S208: "readme.txt"
  10458. S209: "Stargazer"
  10459. S210: "Jonathan Fry"
  10460. S211: "Prologue, an Adventure in Outfitting"
  10461. S212: "stargaze"
  10462. S213: "stargaze.sol"
  10463. S214: "Tapestry"
  10464. S215: "Daniel Ravipinto"
  10465. S216: "an Interactive Destiny"
  10466. S217: "tapestry"
  10467. S218: "readme.1st, instruct.txt, and walkthru.txt"
  10468. S219: "Sir Ramic Hobbs and the Oriental Wok"
  10469. S220: "Gil Williamson"
  10470. S221: "wok"
  10471. S222: "1req.txt, mrun.exe, wok.*, and wok.wlk"
  10472. S223: ".bat"
  10473. S224: "AGT"
  10474. S225: "an"
  10475. S226: "Looking more closely, you see cables going from the various bins into
  10476. the wall just below the lever."
  10477. S227: "All the games have blurbs on them. I'm afraid you'll have to be more
  10478. specific (or just 'READ <game>')."
  10479. S228: "
  10480. A piece of paper is tacked to one wall, with instructions."
  10481. S229: ""To find out about a particular system (like Inform) just type 'READ AN
  10482. INFORM GAME' (The same will work with TADS, AGT, and the rest of the game types
  10483. in this competition.)""
  10484. S230: "It's a Big Red Button Which, If You Push It, Will Make You Do Everything
  10485. You Really Need To Do Automatically. What more do you want to know?"
  10486. S231: "Inside the bins are representations of the various games in this
  10487. contest. You can examine an individual game to get basic information about it,
  10488. and to find out what rating you've given it. If you would like more detailed
  10489. information, you can 'READ THE BLURB ON <game>' or simply 'READ <game>'. The
  10490. blurb will give you the title and subtitle of the game, the directory where you
  10491. can find it, and information about the interpreter(s) you can use to play it."
  10492. S232: "When all of the games are sorted into either the 'playable' or
  10493. 'unplayable' bin, the light will turn green, and you can pull the lever. This
  10494. will cause a rack to rotate into the room, and all of the games from the
  10495. 'playable' bin will be moved to this rack, sorted in a random order. If you
  10496. find you have made a mistake, or wish to re-sort your games, pull the lever
  10497. again, and it will deposit the games from the rack back into the 'playable'
  10498. bin, where you can re-arrange them."
  10499. S233: "The rack, when it appears, will hold all the games you indicated you
  10500. could play, in a random order. A game must be inside the rack before you can
  10501. rate it, which you can do by typing 'RATE <game> <number>', where <number> is a
  10502. number (integer) between one and ten. The idea here is that you play the first
  10503. game on your list first, then the next, and so on, until you either finish or
  10504. run out of time. You can rate as you go, or wait until you finish and rate them
  10505. then. You can always change your old ratings, and the program will not insist
  10506. on you rating them in order (though it will comment on it).
  10507.  
  10508. (The formatting is based on a fixed-width font, and assumes a screen width at
  10509. least a few characters wider than the longest game name. I apologize if it
  10510. looks bad on your interpreter.)"
  10511. S234: "The buttons will (theoretically) output to a text file your list of
  10512. games and ratings. The square button will save a list of just the games you've
  10513. rated, while the round button will save the entire list, in the same order as
  10514. is listed in the rack. It may not get good results on all interpreters, but I
  10515. think I've worked out the major bugs. If it doesn't work for you, I'd recommend
  10516. turning scripting on, examining the rack, then turning scripting off again.
  10517. ('SCRIPT ON. EXAMINE RACK. SCRIPT OFF'). If your interpreter prompts you for a
  10518. file name, then that's the file your list will turn up under. If it doesn't, it
  10519. either didn't work, or turned up in the file "rating.txt"  At any rate, if it
  10520. works, you can use this file to mail to the vote collector, if you wish."
  10521. S235: "This really needs no extensive documentation, as it does precisely what
  10522. its title implies. You can think of it as an automatic 'walkthrough' for this
  10523. game. All the typed commands you see yourself executing would actually work if
  10524. you typed them yourself. The first, 'GET ALL GAMES FROM EVERYWHERE' is
  10525. hardwired into this game, and can be shortened to 'GET ALL GAMES' or even 'GET
  10526. ALL' (since the games are the only objects around you need to carry.)"
  10527. S236: "Once all the games are sorted, you may refer to the first game on the
  10528. list which you haven't rated as 'next', as in EXAMINE NEXT or RATE NEXT. This
  10529. is a convenience so you don't have to look at the rack each time you want to
  10530. figure out which game is next on the docket."
  10531. S237: "October 20, 1996 - Votes will begin to be accepted at:
  10532. ct@ecs.ox.ac.uk
  10533.  
  10534. November 30, 1996 - The voting account will close. No further votes will be
  10535. accepted after midnight on this date. (Midnight for the person whose account
  10536. this is. Save yourself grief and vote early.)
  10537.  
  10538. December 1-5, 1996 - The winners of the competition will be announced at
  10539. various places of interest on the internet."
  10540. S238: " The Judging system this year was debated at large, and it was finally
  10541. decided that this game would indeed be official. Whizzard hasn't published a
  10542. revised Judging section yet, but as far as I can tell, it will be the same as
  10543. last year, with the exception that partial judging entries are allowable. This
  10544. still means that if you can by any means judge all the games, you should do so.
  10545. But if you can't, you should judge them in a randomized order, whether through
  10546. this game or in some other manner. In any case, please judge as many as you
  10547. can, so that we will have statistically significant results.
  10548.  
  10549. Betatesters may vote in the main competition this year, unlike last year. There
  10550. are currently no plans for a MISS CONGENIALITY award for votes from game
  10551. authors, but there have been rumors of a desire for one amongst some of us.
  10552. Presumably, once we have an official vote counter, we could bug them to collate
  10553. separate MISS CONGENIALITY votes, or we can organize one ourselves. Bugging
  10554. Whizzard about it is probably NOT the way to go, since he's tired, overworked,
  10555. and cranky ;-)"
  10556. S239: "In brief:  it doesn't, not really. I intended this game as a tool,
  10557. nothing more. If you don't like it, push the Big Red Button and quit. If you do
  10558. like it, use it as a scratchpad to record your ratings and print them out. Use
  10559. it to find where the odd interpreters reside on the archive, or to find out if
  10560. your platform has a new interpreter somewhere. If you absolutely hate it,
  10561. either rate all the games or find another way to choose which games to play
  10562. first. Any option will work."
  10563. S240: "Greetings! This is Release 1 (the first official release) of my very
  10564. first Inform game. Of course, it's not much of a game, per se, but it did teach
  10565. me a lot about Inform. There's still a lot more features I'd like to add to
  10566. this, but I've been working on my actual Competition game so much none of the
  10567. following have been implemented. Still, hope springs eternal.
  10568.  
  10569. The features I'd like to add:
  10570.  
  10571. -A helpful janitor, who could interact with you, ask you questions about how
  10572. you wanted things set up, and who would set things up for you if you didn't
  10573. want to do them yourself. He'd also be able to answer questions you had about
  10574. parts of the game.
  10575.  
  10576. -A rate-o-meter, an optional item you could use to help you rate the games, by
  10577. giving it levels of how much you liked the plot, characters, coding, puzzles,
  10578. etc.
  10579.  
  10580. -A way of recording one- or two-line sentences about your feelings on each
  10581. game, for later reference.
  10582.  
  10583. If you have comments, bug reports, ideas, whatever, feel free to contact me at:
  10584.  
  10585. lpsmith@rice.edu
  10586.  
  10587. Enjoy!"
  10588. S241: "write to"
  10589. S242: "read"
  10590. S243: "send message"
  10591. S244: "apply 'ofclass' for"
  10592. S245: "recreate"
  10593. S246: "destroy"
  10594. S247: "copy"
  10595. S248: "copy"
  10596. S249: "<unknown attribute>"
  10597. S250: "name"
  10598. S251: "create"
  10599. S252: "recreate"
  10600. S253: "destroy"
  10601. S254: "remaining"
  10602. S255: "copy"
  10603. S256: "call"
  10604. S257: "print"
  10605. S258: "print_to_array"
  10606. S259: "animate"
  10607. S260: "absent"
  10608. S261: "clothing"
  10609. S262: "concealed"
  10610. S263: "container"
  10611. S264: "door"
  10612. S265: "edible"
  10613. S266: "enterable"
  10614. S267: "general"
  10615. S268: "light"
  10616. S269: "lockable"
  10617. S270: "locked"
  10618. S271: "moved"
  10619. S272: "on"
  10620. S273: "open"
  10621. S274: "openable"
  10622. S275: "proper"
  10623. S276: "scenery"
  10624. S277: "scored"
  10625. S278: "static"
  10626. S279: "supporter"
  10627. S280: "switchable"
  10628. S281: "talkable"
  10629. S282: "transparent"
  10630. S283: "visited"
  10631. S284: "workflag"
  10632. S285: "worn"
  10633. S286: "male"
  10634. S287: "female"
  10635. S288: "neuter"
  10636. S289: "pluralname"
  10637. S290: "before"
  10638. S291: "after"
  10639. S292: "life"
  10640. S293: "n_to"
  10641. S294: "s_to"
  10642. S295: "e_to"
  10643. S296: "w_to"
  10644. S297: "ne_to"
  10645. S298: "se_to"
  10646. S299: "nw_to"
  10647. S300: "sw_to"
  10648. S301: "u_to"
  10649. S302: "d_to"
  10650. S303: "in_to"
  10651. S304: "out_to"
  10652. S305: "door_to"
  10653. S306: "with_key"
  10654. S307: "door_dir"
  10655. S308: "invent"
  10656. S309: "plural"
  10657. S310: "add_to_scope"
  10658. S311: "list_together"
  10659. S312: "react_before"
  10660. S313: "react_after"
  10661. S314: "grammar"
  10662. S315: "orders"
  10663. S316: "initial"
  10664. S317: "when_open"
  10665. S318: "when_closed"
  10666. S319: "when_on"
  10667. S320: "when_off"
  10668. S321: "description"
  10669. S322: "describe"
  10670. S323: "article"
  10671. S324: "cant_go"
  10672. S325: "found_in"
  10673. S326: "time_left"
  10674. S327: "number"
  10675. S328: "time_out"
  10676. S329: "daemon"
  10677. S330: "each_turn"
  10678. S331: "capacity"
  10679. S332: "short_name"
  10680. S333: "short_name_indef"
  10681. S334: "parse_name"
  10682. S335: "articles"
  10683. S336: "inside_description"
  10684. S337: "play"
  10685. S338: "Pronouns"
  10686. S339: "Quit"
  10687. S340: "Restart"
  10688. S341: "Restore"
  10689. S342: "Save"
  10690. S343: "Verify"
  10691. S344: "ScriptOn"
  10692. S345: "ScriptOff"
  10693. S346: "NotifyOn"
  10694. S347: "NotifyOff"
  10695. S348: "Places"
  10696. S349: "Objects"
  10697. S350: "Score"
  10698. S351: "FullScore"
  10699. S352: "Inv"
  10700. S353: "Take"
  10701. S354: "Drop"
  10702. S355: "Remove"
  10703. S356: "PutOn"
  10704. S357: "Insert"
  10705. S358: "EmptyT"
  10706. S359: "Give"
  10707. S360: "Show"
  10708. S361: "Enter"
  10709. S362: "GetOff"
  10710. S363: "Exit"
  10711. S364: "VagueGo"
  10712. S365: "Go"
  10713. S366: "LMode1"
  10714. S367: "LMode2"
  10715. S368: "LMode3"
  10716. S369: "Look"
  10717. S370: "Examine"
  10718. S371: "LookUnder"
  10719. S372: "Search"
  10720. S373: "Unlock"
  10721. S374: "Lock"
  10722. S375: "SwitchOn"
  10723. S376: "SwitchOff"
  10724. S377: "Open"
  10725. S378: "Close"
  10726. S379: "Disrobe"
  10727. S380: "Wear"
  10728. S381: "Eat"
  10729. S382: "Yes"
  10730. S383: "No"
  10731. S384: "Burn"
  10732. S385: "Pray"
  10733. S386: "Wake"
  10734. S387: "WakeOther"
  10735. S388: "Kiss"
  10736. S389: "Think"
  10737. S390: "Smell"
  10738. S391: "Listen"
  10739. S392: "Taste"
  10740. S393: "Touch"
  10741. S394: "Dig"
  10742. S395: "Cut"
  10743. S396: "Jump"
  10744. S397: "JumpOver"
  10745. S398: "Tie"
  10746. S399: "Drink"
  10747. S400: "Fill"
  10748. S401: "Sorry"
  10749. S402: "Strong"
  10750. S403: "Mild"
  10751. S404: "Attack"
  10752. S405: "Swim"
  10753. S406: "Swing"
  10754. S407: "Blow"
  10755. S408: "Rub"
  10756. S409: "Set"
  10757. S410: "SetTo"
  10758. S411: "WaveHands"
  10759. S412: "Wave"
  10760. S413: "Pull"
  10761. S414: "Push"
  10762. S415: "Turn"
  10763. S416: "PushDir"
  10764. S417: "Squeeze"
  10765. S418: "ThrowAt"
  10766. S419: "Tell"
  10767. S420: "Answer"
  10768. S421: "Ask"
  10769. S422: "Buy"
  10770. S423: "Sing"
  10771. S424: "Climb"
  10772. S425: "Wait"
  10773. S426: "Sleep"
  10774. S427: "Consult"
  10775. S428: "parse_input"
  10776. S429: "AskFor"
  10777. S430: "GiveR"
  10778. S431: "ShowR"
  10779. S432: "begin_action"
  10780. S433: "end_turn_sequence"
  10781. S434: "Transfer"
  10782. S435: "standalone_DOS"
  10783. S436: "rating"
  10784. S437: "title"
  10785. S438: "game_type"
  10786. S439: "author"
  10787. S440: "Read"
  10788. S441: "subtitle"
  10789. S442: "filename"
  10790. S443: "ext"
  10791. S444: "other_files"
  10792. S445: "interp_directory"
  10793. S446: "DOS_interp"
  10794. S447: "Win_interp"
  10795. S448: "Mac_interp"
  10796. S449: "OS2_interp"
  10797. S450: "Lnx_interp"
  10798. S451: "Unix_interp"
  10799. S452: "Amg_interp"
  10800. S453: "Other_interp"
  10801. S454: "email"
  10802. S455: "ranking"
  10803. S456: "adj"
  10804. S457: "desc"
  10805. S458: "title_length"
  10806. S459: "readiness"
  10807. S460: "max_title_len"
  10808. S461: "mimics"
  10809. S462: "select"
  10810. S463: "operate"
  10811. S464: "emblazon"
  10812. S465: "Version"
  10813. S466: "Empty"
  10814. S467: "InvTall"
  10815. S468: "InvWide"
  10816. S469: "GoIn"
  10817. S470: "ReadAbout"
  10818. S471: "Play"
  10819. S472: "Rate"
  10820. S473: "NumRate"
  10821. S474: "MyScore"
  10822. S475: "Help"
  10823. S476: "GetAllGames"
  10824.  
  10825. [End of text]
  10826.  
  10827. [End of file]
  10828.